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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
3 COPY LOG4&001 ** MAP EC HISTORY ** 002500 25F2 201 DC A(ENTPT POINT TO MAP ENTRY POINT TABLE 
TE TESSCCTS SC LS SSCS SOC SSCS SSS SSCS CSS STS SST TS tT ttt +t eT TCs eT TSS TST TS LS SST et O02 sO ok iO lok kok aoiokgck ke aokok ak goto otek tek iekkoiotok dak toiok kkk kaki kok gk tok tk Sakok kk ee teak 
5 * * 203 OO io iii io i ook dick taioieataiktok kok dose tego taka ok kk tk 
6 * 2K PREREQUISITES * eK * 204 ** *x* 
7 * x 205 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR D3C00) ** 
8 * HARDWARE EC 576943A * 206 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO OBTAIN THE PROPER *% 
9 * * 207 ** PARAMETERS TO PASS TO THE TUS AND T6 PASS TO THE OPERATOR ** 
10 3 OR tk RC III III IGOR IORI OR I IOI I tok ik i tak ik tei ic ic aie 208 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS *% 
11 * * 209 ** PURPOSE THEY ARE: *%* 
12 * 2 MODIFICATIONS kK * 210 ** ** 
13 * * 211 ** STEP AND RULE ADDRESS TABLE ** 
14 * CHANGES MADE TO CORRECT FOR LOW BAUD RATE * 212 ** THIS TABLE GIVES THE ADDRESS OF THE RULE TO INVOKE AND ** 
15 * * 213 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. ** 
RABE SESS SCSSCS CCS LOSS SCS COST CS CS SCS SSS ST TSC SST SSS TST TTS TST SSS ICS TELS ET Se TTT et 214 ** ENTRIES ARE AS FOLLOWES ** 
17 * * 215 ** A AN ADDRESS OF THE RULE DC START AREA ** 
18 * KK REA'*S INCORPORATED He te * 216 ** B THE STEP NUMBER IN DECIMAL *& 
19 * * 217 ** Cc AN EQUATE FOR THE STEP NUMBER ** 
20 * NONE * 218 ** ** 
21 * * 219 ** RULE INFORMATION TABLE ** 
PM TELS SSL SETS LS SSE SSS SSS PCS SSS SSS SSC LCS SL TLCS TSS TST SCT SS SCL SS Te SST ST SST te + Se 220 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE *& 
23 * * 221 ** THE APPROPRIATE RULE UNDER SDI. EACH RULE HAS ITS OWN ** 
24 * KK SPECIAL INSTRUCTIONS KK *x 222 ** UNIQUELY DEFINED AREA INDICATED BELOW. END OF TABLE IS ** 
25 * * 223 ** INDICATED WITH A X*'OO0O0* FOR THE ROLE EQUATE. ** 
26 * NONE * 224 ** *x 
27 * * 225 ** SQUES * x 
PASTELS SSS ES LL SL SESS SS SSS SSS SSCS SSS SL CSS LSS SSL CS SCS S ST SSS LS ST eT Se TT Sette tT 226 ** A) RULE EQUATE x'0100! ** 
29 * * 227 ** B) ADDRESS OF THE YES LEG RULE ** 
30 * 40 E. C. HISTORY eK * 228 ** * & 
34 x * 229 * SFIXT =* 
32 * DATE O1JUL76 DATE 010CT76 DATE O2DEC76 DATE 10JUN77 * 230 ** A) RULE EQUATE X'0101' ** 
at . E.C. 578446 E.C. 578468 E.C. 578469 E.C. 578625 * ee ie B) ADDRESS OF MESSAGE TO PRINT c 
* 
35 * DATE 22JUL77 DATE 15SEP77 DATE O1SEP78 DATE * 233 ** $STOP ** 
36 * E.C. 578757 E.C. 754882 E.C. 374888 E.C. * 234 ** A) RULE EQUATE X'0102! ** 
37 * * 235 ** B) ADDRESS OF MESSAGE xx 
38 RK ok RI IORI ROR I IR RIO qk RR Kk aK lake ake ake age otek de oat afc oe oe ae 236 ** ; ** 
002500 4O T4001 START x*2500° START ADDRESS OF ALL ‘I! TYPE PROG 237 ** $GOTO &% 
000100 41 @QUES EQU X¥*01008 EQUATED VALUE FOR MDI STATEMENT 238 ** A) RULE EQUATE x*0200! % & 
000101 42 @FIXT EQU X*'0101! EQUATED VALUE FOR MDI STATEMENT 239 ** B) ADDRESS OF MESSAGE ** 
000102 43 @STOP EQU X¥'0102! EQUATED VALUE FOR MDI STATEMENT 240 ** C) NAHE OF MAP TO GO TO *x 
000200 4 @GOTO EQU X'0200°8 FOUATED VALUE FOR MDI STATEMENT 241 ** D) ENTRY POINT WITHIN GO TO MAP TO USE xx 
000201 45 @CALL EQU X¥*0201' EQUATED VALUE FOR MDI STATEMENT 242 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE *x 
000300 46 @INPT EQU X¥*0300! FOUATED VALUE FOR NDI STATEMENT 24Uu ** xx 
000400 47 @QUXX EQU X'O4008 EQUATED VALUE FOR MDI STATEMENT 245 ** SCALL ae me 
000500 48 aTUXX EQU X¥'0500' EQUATED VALUE FOR MDI STATEMENT 246 ** A) RULE EQUATE X'0201' %* 
000600 49 A@NVLD EQU X*0600! EQUATED VALUE FOR MDI STATEMENT 247 ** B) ADDRESS OF MESSAGE «xe 
000000 50 EQ EQU Xx'0000!8 EQUATE FOR EQUAL 248 «x C) NAME OF HAP TO CALL % & 
000004 51 NE EQU x'ooo4gt EQUATE FOR NOT EQUAL 249 *% D) ENTRY POINT WITHIN CALLED MAP TO USE % te 
000008 52 HI EQU x*'0008' EQUATE FOR HIGH 250 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE ee 
00000C 53 NH EQU x'000c*t EQUATE FOR NOT HIGH 251 ** *% 
000010 54 LO EQU Xx*0010! EQUATE FOR LOW 252 ** SINPT xe 
000014 55 NL zou X'O014! EQUATE FOR NOT LOW 253. ¥* A) RULE EQUATE X'0300 ** 
000010 56 LT EOU X¥'0010! EQUATE FOR LESS THAN 254 ** B) INPUT TYPE JEBCDEC oF OR oot) # 
00000C 57 LE EOU x'o0o0c! EQUATE FOR LESS THAN OR EQUAL LO 255 ** C) ADDRESS OF LE <* 
000008 58 GT EQU X*00088 EQUATE FOR GREATER THAN 256 ** D) DESTINATION LOCATION. OF INPUT DATA ** 
000014 59 GE EQU X'0014! EQUATE FOR GREATER THAN OR EQUAL TO 257 ** E) LENGTH OF INPUT DATA *& 
000200 60 ON EQU X¥'0200' EQUATE FOR ON 258 *% F) LOWER LIMIT OF GOOD DATA *% 
000202 61 OF EQU X¥'0202! EQUATE FOR OFF 259 *« G) HIGHER LIMIT OF GOOD DATA ek 
000204 62 MX EQU X*O204! EQUATE FOR MIXED 260 ** xk 
000000 63 EBC EQU X'0000'! EQUATE FOR EBCDIC DATA TRANSFER 261 ** SOQUXX ** 
000001 64 HEX EQU X*0001' EQUATE FOR HEX DATA TRANSFER 262 ** A) RULE EQUATE x'ouoot ee 
000001 65 XTRNL EQU X¥'0001'° EQUATE FOR EXTERNAL REFERENCE 263 ** B) ADDRESS OF YES LEG RULE xx 
000000 66 INTRNL EQU x*ooo0! EQUATE FOR INTERNAL REFERENCE 264 *x C) TU BRANCH TO ADDRESS INITIAL * 
000000 67 PARM EQU X'0000! EQUATE INDICATING PARAMETER 265 ** D) TU BRANCH TO ADDRESS (SECONDARY) : % & 
000001 68 DA EQU X¥'QO0018 EQUATE FOR DEVICE ADDRESS 266 ** E) LENGTH OF PARAMETER IN BYTES *e 
000002 69 UA EOQU X*0002! EQUATE FOR UNIT ADDRESS 267 ** F) PARAME O PAS TU * 
000000 70 DUMMY EQU X¥*90000! DUMMY EQUATE 268 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAHETER me 
001800 72 PID EQU *-X'QODO0! ADDRFSS OF MDI HEADER 269 ** a 
000232 73 PTYPE EQU *—-X'D2CE!* ADDRESS OF PROCESSOR TYPE FIELD 270 ** STUXX kk 
00180C 74 STEPNUM EQU PID+x'OQ00C! ADDRESS OF DECIMAL STEP NUMBER 271 ** A) RULE EQUATE x'*0500! xe 
00180E 75 OPWD1 EQU PID+X*OQOOE!® ADDRESS OF OPTION WORD ONE 272 **% B) ADDRESS OF YES LEG RULE ke 
001810 76 OPWD2 EQO PID+X'00105 ADDRESS OF OPTION WORD TWO 273 ** Cc) TU ERencH TO ADDRESS xx 
001818 77 TUSTATUS EQU PID+x*0018! ADDRESS OF TU STATUS WORD 274 ** D) TYPE COMPARE TO MAKE ON RESULTS ee 
00181A 78 TUWORK EQU PID+X'OOTA® ADDRESS OF TU WORK AREA 275 ** E LENGTH. OF COMPARED RESULTS ** 
00189A 79 TUPARH1 Ee PID+X'OO9A! ADDRESS OF PARM 1 POINTER 276 ** F) MASK FIELD FOR COMPARE *% 
00189C 80 TUPARN2 EOU PID4+x'009C* ADDRESS OF PARM 2 POINTER 277 ** G) LENGTH OF PARAMETER IN BYTES ax 
00189E 81 TUPARM3 EQU PID+X'O09E! ADDRESS OF PARM 3 POINTER 278 ** H) PARAMETER TO PASS TO THE TU % x 
0018A0 82 TUPARM4Y EQU PID*xX'OOAO! ADDRESS OF PARM 4 POINTER 279 ** T) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER *& 
0018A2 83 TUPARMS Beg PID+xX*OOA2! ADDRESS OF PARM 5 POINTER 280 ** * 
0018A4 84 TUPARM6 EQU PID+X*OOQA4! ADDRESS OF PARM 6 POINTER 281 ** $NVLD ee 
0018A6 85 TUPARM7T EQU PID+X*OOA6! ADDRESS OF PARM 7 POINTER 282 ** A) RULE EQUATE X*0600! we 
0018A8 86 TUPARH8 EQU PID¢+X'OOAS8* ADDRESS OF PARH# 8 POINTER 284 ** ae 
OO18AA 87 TUPARHNS EQU PID+X*"OOAA® ADDRESS OF PARM 9 POINTER 285 ** ENTRY POINT TABLE * & 
0018AC 88 TUPARMN10 EQU PID+X'QOAC® ADDRESS OF PARAS 10 POINTER 286 **x THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE SAP THAT % & 
OO18AE 89 TUPARM11 EQU PID+X*QOAE!® ADDRESS OF PAR 11 POINTER 287 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ae 
0018B0 90 TUPARM12 EQU PID+xX*OOBO! ADDRESS OF PARM 12 POINTER 288 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: xe 
0018B2 91 TOUPARM13 EQU PID+X*OOB2'* ADDRESS OF PAR#H 13 POINTER 289 ** xe 
0018 BY 92 TUPARM14 EQU PID¢xX'OOBY? ADDRESS OF PARM 14 POINTER 290 ** A) NAME OF ENTRY POINT ee 
0018B6 93 TUPARN15 EQU PT D+X*OOB6! ADDRESS OF PARM 15 POINTER 291 ** ADDRESS OF ENTRY POINT RULE TABLE xk 
0018B8 94 TUPARN16 EQU PID+Xx*'OOBS8'* ADDRESS OF PARA 16 POINTER 292 ** ae 
OO18BA 95 TUMSGWTR EQU PID+X*QOOBA* ADDRESS OF -> TO COMMON MSG WRITER 293 ** THE ENTRY POINT TABLE END IS INDYCATED BY A x*00008 ee 
O0018BE 96 TUUA EQU PID4X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 294 x ee 
0018C0 97 TUDA EQU PID+X*OQOCO! ADDRESS OF DEVICE ADDRESS IN EBC 295 ** MESSAGE TABLE me 
0018C2 98 TUBUFF EQU PID+x*QOC2'! ADDRESS OF LAST USED WORD IN MAP 296 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR ax 
0018C4 99 TULAST EQU PID#+xX*O0OC4!? ADDRESS OF LAST ADDRESSABLE WORD 297 *x VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: *e 
0018C6 100 TURESULN EQU PID+xX*O0OC6! ADDRESS OF LENGTH OF TU RESULTS 298 ** 5 
0018C8 101 TURESUL EQU PID+x*'O0OC8!* ADDRESS OF TU RESULTS FIEL 299 **x A) EQUATE FOR START OF MESSAGE BLOCK ee 
0018FC 102 MAPNAME at PID+X*OOFC!® ADDRESS OF MAP NAME FIELD IN HEX 300 ** B) NUMBER OF LINES OF MESSAGE ee 
001948 103 TUINPT EQU PID+X*0148°8 ADDRESS OF $INPT DATA 301 ** C) LENGTH OF FOLLOWING LINE %% 
00196E 104 PARMARA EQU PID+X"'O16E! ADDRESS OF $INPT INPUT AREA 302 ** D) FIRST LINE OF MESSAGE *% 
0019B8 105 @DCADD1 EQU PID+X'0O1B8! MDI POINTER 303 ** E) LENGTH OF FOLLOWING LINE xe 
QO19BA 106 @DCADD2 EQU PID+X'O1BA® MDI POINTE 304 ** F) SECOND LINE OF MESSAGE ee 
0019C4 107 SUPSTAT EQU PID+X*QO1C4! ADDRESS OF MDI STATUS 305 ** G) ETC. am 
0019D0 108 DEVADD EQU PID+X*O1D0! ADDRESS OF DEVICE ADDRESS TABLE 0 306 ** *e 
OO19DA 109 DEVADD! FOU PID+X'O1DA® ADDRESS OF DEVICE ADDRESS TABLE 1 JOT We We He He Me ake He she he ae He he hee Bh he ae Ne eae He a Me ee he He he ah hehehe aha eR ae ee ah a ah ae Rae ahah hae i ae ae ai ae ae a 
OO19EY4 110 DEVADD2 EOQU PID4¢X'O1E4! ADDRESS OF DEVICE ADDRESS TABLE 2 30 BG HW ee he He Me he he ah He he He Me he ae Me ae ee ae ee ee eR ae 2 Re ae ee a a ee he Me ah a Ree ee ae ah ake ah a ae ahead ae ae a ae a ae ae ae a a ae ae a a a 
OO19EE 111 DEVADD3 EQU PID+X*O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 
0019F8 112 DEVADD4 EQU PID+X*O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 
001A02 113 DEVADDS £EQU PID+X'0202'! ADDRESS OF DEVICE ADDRESS TABLE 5 
OO1A0C 114 DEVADD6 EQU PID+x'0O20C* ADDRESS IF DEVICE ADDRESS TABLE 6 
OO1A 16 he DEVADD7 E -_ civ eooeor ADDRESS OF DEVICE ADDRESS TABLE 7 
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--- = = PAGE O3A 
T4001 --- TTY ATTACHMENT MANUAL MODE MAP P/N=1635224 EC=374888 PAGE 03 T4001 TTY ATTACHMENT MANUAL HODE MAP P/N=1635224 EC=374888 
976 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1 
656 PLUS EQU Cte? PLUS CHAR 
Ose 28 oT ia BR” " ntti e2$ MINUS EOU ct-e MINUS CHAR 
00265A 0001 540 D AL2 (0001) aettit e246 Ghee Hou $ 
00265c 0010 541 DC A (0016) ; atthe e24 cee EU : 
00265F E2C5C1E340C3C1D9C 542 DC CLOO16"SEAT CARD/CABLE. 000002 Pes nea te , 
Oeseee aac eee 000003 662 THREE FOU 3 
$2095 9893 3i8 Be gage” a4 so youg phy 
002672 DICSD7D3CIC3C540E 546 DC 40039 \REPLACE THE TTY ATTACHHENT CARD.'! 8 p2 bee ree : 7 Fy 
002692 S47 F00190 EQU * 07 G66 SEVEN EOD 5 
fo5e9% 9016 at DC OR LOO3O) 80080 667 FIGHT EQU 8 
902696 D>D64OCSD9D9DEDI4 220 DC 100304 wo ERROR FOUND, ATTACH CABLE. ' pouGon pen pie E 2 a5 
11 
0026B6 C7D6D6C44OC5D5C44 552 DC 45018 GOOD END THIS MAP. * Oo eae 670 eh EOU 1) 14 
FOE EE ee 00000D 672 THRTN EOU 13 13 
agaec, B08 238 pe hadgere e00008 13 EEvan Eu 13 13 
9926CC E3C3 DICICE EBHOESC 226 He 10038) VERIPY THE CABLE (SEE NOTE AT RIGHT). * BanbAG em araeo eeu 2 3 
64 
Oeaere | O9ze 235 ge iigaue) 20sa¢ 75 Subse egt $4 i3e 
o026re C3 CBN OESCBCS4OC3IC 260 dC CLOOUE4 TE THE CABLE IS OK, THE PROBLEM IS EXTERNAL ! AaDLee ae taOoe E u o3o aaok 
8 
002726 E3D640E3C8C540CI1E 562 DC 40038) 70 THE ATTACHMENT/CABLE. ° poonGR pas enaoe . 2048 2038 
OOZd3E 2ey ee FQ ; 001000 682 FOURK EOQU 4096 4096 
eoaru5 8989 a be hyad9ae” EEEETE 3g ayo} =} 
002782 DICSD7D3CIC3C5S40E 266 arey oC €10032* REPLACE THE TTY ATTACHHENT CARD. '! Dube eae ae zou =. os 
oer en booe Deo We Ae dgay ree ee ReekeeeeEAaS CEESRRRE CEE EE RES RSERRRREREEE RTT EERE EERE EERE ES EEE Het 
* 
002766 D9ICSD7TD3CICICS4OC 570 DC (10038 REPLACE F/C 7845 TTY ATTACHMENT CARD. '* 639 : THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE be 
MEsite 0004 244 Fone 5 12 (9004) 632 % BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. : 
693 * 
002785 0026 2/3 DC A (0038 ee ye ME ae Me ofe oe fe she afc we dhe she He fe ah ae ake he oc af af afc af ahs she ae ae she ae af ah ate whe ae ae she ade afc af ake he hc Ne ae ae aie fe ah he ah ae se he he he Hc ah he he he aie ae he ae 
002799 D7D9 DEC2D3CSD44OD ze DC 10038" PROBLER POSSIBLY WITH ATTACHED DEVICE. '! eso0n0 eae ass ae a 
002788 C 1D5C 1D3EBE2C 54 0B 248 DC C100404 ANALYSE SIZE AND VALIDITY OF TRANSHITTED IPL? BpogoD bce ee Bd 4 
002756 D9CIC3DEDICH4BLOC 578 DC C19043} RECORD. IF DEVICE NOT SUSPECT, REPLACE TTY! BaOn GL eae er EO i 
002812 C3C1DIC44B4LO 580 P DC £10006 CARD. ' Booboe 709 BS? Ean 2 
2e) ALPES 8g SE SE eee rrr ee eNO Ee Ee rr renee opr renee Tar oars 000007 702 BS7 EQU 7 
584 SRE T ESSERE TEES CSL TSE SRE CTD CLEA TEMES CORRE Oe Centar eee Cees eee eee poueNe 303 ae eeu : 
*x 
282 ** A) PROGRAM NAHE --- FC 7845 TTY ATTACHMENT MANUAL-MODE TEST % OOOOOA 705 BS10 EQU 10 
587 ** ek 00000B 706 BS11 EQU 11 
588 ** eK 00000C 707 BS12 EQU 12 
589 ** 8B) FUNCTION ------- TESTS THE FC 7845 TTY ATTACHMENT CARD IN - Bobo Re ae oo zou ur 
zee - THE MANUAL-WRAP MODE. yh pogo: 710 BSit a 
592 ** C LINKAGE -------- THIS PROGRAM WILL BE ENTERED WITH * Pate oie eer e tease 
593 vel ) REGISTER 7 CONTAINING THE RETURN ADDRESS. - a4 a ee errs Cm Ra ner pe ey ane ae a 3c He 
ae eK ok 419 : TEST OVERVIEW AND OPERATING PROCEDURES 
Pee ag, le CONSE CRORE Sere ee Ss ane :. 7*7 * THIS TEST IS DESIGNED TO RUN THE TTY ATTACHMENT IN MANUAL MODE. IT 
ee hips SECOND ERTS NUN in 718 * CANNOT ASSUME ANY ATTACHED DEVICE. THIS PROGRAN RUNS UNDER CONTROL 
235 *x tk 719 * OF THE DIAGNOSTIC CONTROL PROGRAM (DCP), WITH THE ATTENDANT CONTROLS 
gO pe 7) PRRORY CODES, ANOCGE FOMRIEEGUET S GGop enuey " Le Saneonpianne tae 
1 et x = ) Peres SS ts 
602 ** X¥'OQ0001" IN "TURFESUL! = ERROR RETURN be ao8 ee erg TNE Re a ene ee caret eee en pte n Cr Teer en ee 
ean gs eK TDS HR HM Me he fea He ie a he he ae He oe he he ae hee a he ae ae he He ake he ae ae hx af he fe ae fe 2c ah he ae ah a a ake he he he he he Hc hee He Me ie ah ae he fe hc ate ae fe ah aie 2c he Oe he 
* 
600 < F) EXTERNAL REFERENCES (SUBROUTINES OR TU'S): ies - 426 : CONSTANTS AND EQUATES 
* 
ob a LE OEE EEL EEE Ee TOT Te TEE PEE ELE eT TT Ee ieee errr rrr rT in 43§ SO OR OR CK loi ao tok lok teaioiioi tok ie egal teak doiiok dado dk dete tdi fete akc ok deat akc ok oc 
aa ea eee err eC ior ee en are eee ee 002818 4001 339 TUrD Dc x'40o1 TEST UNIT TD perce 
xk 
G12 UREA EESE CCE ESSA ES PETERSEN TPES AEE OPE EE EU SLE LEST ERY MATE E TAT ERT SESS poste ae00 ey ate ue Nemes] CORFENT CHECKPOINT eee 
rm B Cc 2A (*- IDC 
o48 : EQUATED NAMES FOR SUPPORTED SVC'S 0028 1E 09900000 uae reed te ries ) LAS EXPECTED! Sr0 coup CODE 
. 736 RIO DC X'FF? 
616 ee tr ee ae ren gece ce ren er eer ees acter re 740 eee we Se Fee R AEE OLEM COU PUDE CREE OOD CODE 
500004 e1g OUT FOU 4 OUTIN SVC 002825 FF 738 RINCC DC X'FF! LAST 'RECEIVED! INTERRUPT COND CODE 
80003 e419 COLE. £6 U ) IDLE SYC 002826 FF 739 IDRDA DC Xt FF DEVICE ID OR DEVICE ADDRESS | 
Conon eee DEES EOU ; cDUE Coss Den eu oene OF CPU TYPE 002827 =*FF ey LEVEL DC X' FF LEVEL LAST INTERRUPT OCCURRED ON 
C x'10! DEVICE ID OF THE TTY ATTACHMENT 
000005 622 PGNCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC eet: 48 aa aes Ne Se Perce BR Dee PRENSA Oo eieen 
000006 623 EXIT EOU 6 Gos (ol a Le 
000007 624 TERM EOU 7 TERMI ATE SVC oc aie een NORD 
ee Oe eee eee 5 READ ID Svc 00282A 4001 746 PGMID DC X¥'goott PROGRAM IDENTIFIER FOR MESSAGES 
the £39 Beer BON 40 START CYCLE STEAL SVC 00282C 00000000000000000 347 BUFFR DC © -30A(+-4) PRINT BUFFER 
9000e £39 BRED” EOU 12 BERPARE DEVICE svc. oe 002868 0000 749 CCERR DC A (*-*) ‘INTERRUPT CONDITION CODE ERROR*' INDR 
750 * 
00000D 630 READO FOU 13 READ WITH FUNCTION BIT 3 OFF SVC aa a cain ee ouCueD GanbTIa ON CODES 
tdi: 633 ae Su ie BEAD eaheus sven e PEs een es O05ne8 34 524 CE? DC X'02° * (USED FOR SETTING "EXPECTED INDRS 
$000.10 633 BRITO EOU te RRITE WITH FUNCTION BIT 3 OFF SVC 00286C 03 733 €C3. pe | X03" * ‘FOR ERROR STATUS DISPLAYS) 
000011 634 WRIT1 EOU 17 WRITE WITH FONCTION BIT 3 ON SVC oeeeo ‘3 J2e cee be a8 : 
Tee: eae rene. eet 13 RPLE 756 CC DC 2A(-1 * 'NO INTERRUPT (COND CODE) EXPECTED! 
6 RICB EQU 19 RELEASE INTFRUPT CONTROL BLOCK SVC 002870 FFFFFFFF CCX (-1) 
900014 637 CICB £90 20 RUT ALY 1/00. CONTROL BLOCK SVC as : * OR 'COND CODE {ioteNTPrcANTe INDR 
759 ALIGN WORD 
000016 639 REOQSD EOU 22 EQUEST USE OF DCP DISK SVC 
Tee A ee Eilpisicles oF Ber Siax Ste = | | Polished —_ 
00287 00 762 CTLSW DC xX'00! "SVC OUT' PRINT-CONTROL SWITCH 
$000 1h ane TOE OU 32 HEX TO ERCDEC Sve STRING 005878 282C 763 CTLBK DC A (BUFFR) 'SVC OUT’ CONTROL BLOCK (MSSG ADDR) 
093018 gis Aron Egy 34 Heetto"asers Sve (stnrc) 186 3 
ee OTe anon hog 767 DAPTR DC A (*-* POINTER TO DEVICE ADDRESS VECTOR 
00001D 656 ETOA EQU 2 Focrr MOC EECOTe ye eerie een ooaG 768 DDB. DC h(k—* STA'S (FOR INTERRUPT SERVICE) G GO HERE 
assess aie 7 BEND Puta Sue Poe Maceo ga3ee gaot fg Pipe BE BS SRGOPRECE BELG SOME ty EOE ons 
E SETS FOR UTIL E 
peo ee ee BEE OEIC ESCO RCO ACHE CH DHE CUR OEE EOE OEE ER AAAI 002880 0000 | INTIN DC A (*-*) ‘INTERRUPT OCCURRED! INDR 
652 * l _ 
* 002882 00000000000000000 773 LSB DC 11A (*-* LEVEL STATUS BLOCK SAVE AREA 
623 ; PODER TES USED: Ot Ee be creer re * 002898 00000000000000000 774 DLSB DC 11a Geo * 
655 a A RR a a Re ie ae a a ee ee fe ee he 2 he he ee fe ee 2 i i ee 2 i a ec a he ee ee He eK KK KK KK 7175 
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P/N=1635224 EC=374888 PAGE O04 T4001 --- 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT 
-* 002B92 C9D5E3C5D9DIB4DTE 893 
LVLER DC A (*-*) ‘INTERRUPTED TO WRONG LEVEL! INDR Ra ooees ane 594 
LVLO DC X'00! CODE FOR SETTING "LEVEL O* IN T/O OPS 
LVL1. DC X'02' CODE FOR SETTING "LEVEL 1! IN I70 OPS Q02BC9 CIDSC3DEDIDYCSC3E 896 
LVL2 Dc X'our CODE FOR SETTING 'LEVEL 2' IN T70 OPS OO2BFB 00 eae 
MCKCD DC x"3803! 'DCP/MDI MACHINE CHECK INDR' CODE OO2BFC CHCTE3CI4OC3D3D6C 899 
MCPSW DC A (¥-*) 'MACHINE CHECK PSW' SAVE AREA 002C25 00 04 
PARM1 DC A (*-* HTOE® UTILITY ROUTINE CONTROL BLOCK 002C26 EYDSC5SETDIC5C3E3C 902 
BARN2 Dc A <2? ae RN1" = CHAR CNT, 'PARM2" = HEX 002C3A 00 ae 
PARM3 DC A (*- DATR ADDR, 'PARM3 EBCDIC ADDR SDDEIa~ GSpSCaReDepeceeae <o08 
SAVER DG || Ree DCR NACH CHK INT ZEEE VCTR SAVE AREA eee 807 
SDCP DC A a—*} DCP PRIORITY INT XFER VCTR SAVE AREA booeae Bars cee DIC QEIE ane 
' ' 910 
LSR EQU  ISB+4 LSR' LOCATION WITHIN LSB AREA ROSERe: “Conseanepepeeeesa: o1G 
MCK EQU x'OOOA" "MACHINE CHECK" CLASS INT XFER VCTR 002CBB 00 a1 
Ft RK RO ORO II ICO IG IOI IR OR III IRR IR OK ge kok ahi ak keke afc akc shea ofc akc fe Hea hada nieakd al are 
¥ : 
* ' 916 
: IMMEDIATE DEVICE CONTROL BLOCKS (IDCB'S) aoocnR Sade g49 
Peet SS SPSS TLS TST SS TSE SS PSS STS SS SSS SS SS StS Ce SS SSS SSC SS SCS SCS STS SL eS TS Te SS oo 
* 
CRBE BE F188 SegqeaND BEgse™ Test’ rcs 33) 
002CEO C9DSFE3C5D9D5C1D34 923 
4 pc A (0) DATA WORD (CONTENTS UNPREDICTAPLE) 303CFO 50000000 0 934 
PREPR DC x'60° "PREPARE! DCB 
PRPDA DC X'008 DEVICE ADDR 002D06 0000 926 
DC X'00! x 002D08 00 ae 
q q q A] 
PDATA DC X'00 PREPARE DATA!’ BYTE AaAbe, HOR 356 
READ DC x'10' "READ" IDCB 930 
RDDA DC X00. DEVICE ADDR o35 
’ t ' ' OO2D0C D4&C3D24O0D4UCIDTI4OT 933 
RDATA DC X'00 READ DATA' BYTE O05 1% BOEsRacoD7N0 7 E40 34 
a e ' ‘ane — - t 
DED pe’ | eaene Oeptee ApoE ee ee 003026 4ODTEZE6407E40 936 
DC X'0000! * 002D2E 00000000 937 
$0383 a5g5gagtO7EtO 338 
RDID DC x'20° "READ-ID' IDCB 
toot 002D3E 4OC9ICHC3C2407E40 940 
ese om a ee 002D46 0000000000000000 941 
DVCID DC x'oor 'DVC ID' BYTE QOO2D4E 00 5a 
RST pc X'6Ft "RESET" IDCB 002D50 2D50 944 
RSTDA DC x'oo! DEVICE ADDR 945 
: DC x'0000! * ene 
WRITE DC X'5o8 "WRITE" IDCB 949 
WRIDA DC x'O008 DEVICE ADDR 950 
DC X'00! * 921 
WDATA DC X'00! 'WRITE DATA! BYTE ane 
eK he He Re he Ae oe ok aK ake ae ie he oh oe 2 2 2h 2h ah ae ak ah kee ac fe fe aie ok ee ke eae ae 2 ae af ae oe oe 2h he fe oe oe fe ae fe fe ake ate fe i ae afc ake af afc ak af af ake ake ake fe ak gee 
. : 
: MESSAGE TEXTS gee 
PSS ttt SL SS SPST SSS LSS TSE SSS SESS SS SSS SSS SSC SCS SSCS SS SCSSC£LSCOSCSC SPS PCPS SSS TTS TS ge5 
x 
MSGOO DC C'INCORRECT OIO COND CODE ON ''READ ID!tt 960 
DC x'oor ge4 
* 
MSGO1 DC C'INCORRECT DEVICE ID RETURNED ON ''READ ID!?t'? 963 
DC X'00! ce 
rd 
MSGO2 DC C'INCORRECT OIO COND CODE ON ''RESETtt? 967 
DC X'00' eG 
* 
MSGO3 DC C'INCORRECT OIO COND CODE ON ''PREPARE!?## 970 
DC X'oo? 344 
* 
MSGO4 DC C'INTERRUPTED AFTER SEQ: RESET, PREP-DISABLED! 973 
DC X'OO" es 
* 
MSGO5 dc Cy INTERRUPTED AFTER SEQ: RESET, PREP-DISABLED, PREP-ENABLED!* pe 
* 978 
' ut ent 002D52 979 
MSGO6 bc C\ INCORRECT OIO COND CODE ON ''WRITE BHORES een Seas B40 
* OOsnee 4930 S810 bong 982 
q ° -_ t 2 
MSGO7 He C\ INTERRUPTED AFTER SEQ: PREP-DISABLED, WRITE BUSDeo. Eeon seen B83 
* 002D66 1825 984 
e me 7 
MSGO8 DC CrINC CORRECT OITO COND CODE AFTER SEQ: PREP-DISABLED, WRITE, W HGIRER: HERS OUR ONeO eee 
Saabye c538 Gogh S008 38s 
t ° -_ q 
MSGO9 ye C\ INTERRUPTED AFTER SEQ: PREP-DISABLED, WRITE, WRITE DOS oTE. “daeeneoe eas 
$83815 £038 383 333 
t ° - ft] 
MSGOA DC CyNO INTERRUPT AFTER SEQ: WRITE, PREP-ENABLED OOS Onn Code Seee a2 
. G83R88 $038 388) $33 
q e = 
MSGOB Dc C{NOQ INTERRUPT AFTER SEQ: PREP-ENABLED, WRITE! bODNg0. cOs8 SeDs age 
ms 002D94 C028 28DD 996 
$83895 3883 334 
t 
MSGOC bc C} INTERRUPTED TO WRONG LEVEL? O05H9n 680b 2878 356 
SB3BK) E888 284 1983 
MSGOD pc Ct INCORRECT DVC ADDR IN R7 ON INTERRUPT - ENTERED VIA CORREC Boone. Uson Sean ee 
x OO2DAC 9028 2870 2822 1003 
MSGOE DC C'tINVALID INTERRUPT ON '"*READ IpD*?'? 1004 
DC X'00" 1906 
x 
MSGOF DC C'UNEXPECTED INTERRUPT COND CODE! 1008 
DC x'oor 1909 
x 


MSG10 


* 
MSG11 


* 
MSG12 


* 
MSG13 
* 
MSG14 
x 
MSG15 
x 
MSG16 
* 
MSG47 


* 
MSGND 
* 


* 
hg INTERNAL 


IRCPM 
IR 


ICP 


* 
IRCND 
* 


pig "MACHINE 


MCMSG 
STEP 
PSW 
TAR 
IDCBX 


* 
MCMND 
* 


TTY ATTACHMENT MANUAL MODE MAP 
SOURCE STATEMENT 


DC 
DC 


DC 
DC 


DC 
DC 


DC 
DC 


DC 
DC 


DC 
DC 


DC 
DC 


DC 
DC 


DC 
DC 
D 


DC 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 


DC 


P/N=1635224 EC=374888 PAGE O4A 
COPYRIGHT IBM CORP 1976 


C'tINTERRUPTED AFTER SEQ: MASK, WRITE, RESET TO DIAG WRAP! 


x'oor 

CORRECT DATA READ AFTER WRITE X*'0O0"* IN DIAG WRAP! 
TA CLOBBERED IN **OVERRUN RCV'* OPERATION! 

EXPECTED INTERRUPT® 

CORRECT OTO COND CODE IN "'CMD REJ'! TEST! 

EXPECTED INTERRUPT IN *"*CMD REJ'* TEST! 


N 
0 
A 
0 
N 
0 
N 
0 
N 
0 
Ae nnee OIO COND CODE ON "RESET TO DIAG WRAP!t'# 
NC 
0" 


Cc! 
xt 
Cc? 
x! 
ct 
x 
ct 
x 
ct 
x! 
ct 
x? 
Se ORRECT OITO COND CODE ON "'READ!#!8 
A 


I 
0 
D 
0 
U 
0 
I 
0 
U 
0 
x 
0 
I 
"0 
M 


(MSGND) END OF ERROR MESSAGE TEXT STRING 


"RINE/CKPT! MESSAGE TEXT 
C'INTERNAL RINE = ! 


2A (*-* 
is _ENTERNAL CKPT = ' 
roo TERMINATOR 
A (IRCND) END OF INTERNAL RTNE/CKPT MESSAGE 


CHECK STATUS' MESSAGE TEXT 
C+MCK MAP = 4001! 

os STEP = ! 

A (*~*) 

oe = 


) 
J 


A (MCMND) 


poten Sa Se fl th Be 


* 
(ene 
foe 
*—*) 
Q' TERMINATOR 

END OF MESSAGE TEXT STRING 


We He KK RK ROR ak kok koto kok kk kk kok kkk tt fk tek tok ko oo Kok ok 


HHH HHHEHHEHH HHH HHH HHH HH HH HK HH 


CONDITION CODES 
OIO INTERRUPT 


DVC NOT ATTACHED 
DEVICE BUSY 


COMMAND REJECT 
INTFC DATA CHECK 
OIO ACCEPTED 


EXCEPTION 
DEVICE END 
ATTENTION 


ATTN & EXCEPTION 
ATTN & DEVICE END 


RR Rok RR OR tok koto kok ak Rk Rt ek kokoko ica ak tote kek te feat ct ote ake ic ic oe 


Me Fee i ok ok OK OK kk kk dk kk tok kok tok dk kok kK tok fk i et kok teak kkk 


NAME: RTOO (INITIALIZATION AND DCP INTERFACE) 


PURPOSE: ae INITIALIZE PROGRAM EXECUTION AND INTERFACE WITH THE 


METHOD: THIS ROUTINE INITIALIZES THE IDCB'*S AND SERVES AS THE 


GENERAL INTERFACE WITH THE DCP. THE ID OF THE DEVICE AT 
THE SPECIFIED DEVICE ADDRESS IS VERIFIED. 


ek RK I OO io Fa ro OR RO RK ta tok dak ited io tok kk ak 


% 


T4001 E 
RTOO 4M 
MVWI 
MVWI 
MVW 
JNZ 


ro Te Se ele se se te te tx te 4 


MV 


$e $e 
s<adur<c<cdcccqaecd< 
4 OO 


YreBHMwowwwww 


= te 
<a< 
om 


= 


* 
R7,GOBCK+2 SET RETURN LINK 

X'*4001" RINE INITIALIZE ROUTINE AND 
0,CKPT * CHECKPOINT VALUES 

SAVER,RO WE ALREADY SAVED VECTOR ENTRY ? 
RTO1 YES, JUMP 

MCK, SAVER NO. SAVE IT 

MACHK, MCK PUT OUR OWN ROUTINE SIA IN THERE 
DEVADD RO GET DEVICE ADDRESS 

X'OOFF! RO STRIP OFF PROPOGATED BITS 
RO,CRTDA SET 
RO,PRPDA * BACH 
RO,RDDA * IDCB 
RO,RDWDA * WITH 
RO,RIDDA * SPECIFIED 
RO,RSTDA * DEVICE 
RO,WRTDA * ADDRESS 

1 RO SET UP VECTOR ADDR FOR THIS DVZ ADDR 
x630' RO * 
RO,DAPTR SAVE IT 

r6) ,SDCP SAVE THE CONTENTS 

DB, (RO) SET TRANSFER VECTOR 

th, R3 SET RAS DISPLAY POINTER 

Cex, KrOCC INITIALIZE CC INDRS 


* 
FORT I IRI ORR IOI IIR I GIIOIO OR ROR RIS i ok iatatotak toot togok 


HHH 


NAME: RTO1 (READ DEVICE IDENTIFICATION) 
PURPOSE: TO INSURE THE PROPER RESPONSE(S) ARE RECEIVED FROM A 


. _ : ; ; ; = S 
! | ’ \ ‘ f n ‘ \ : 4 ’ \ { : \ { ‘ } : ' , ( ‘ ( \ ' z , \ \" ‘ { : ‘ : i A 
ee? Be ee 8 a ee SS a es a ee ee ee te eee ee ee es se 











T4001 --- TTY ATTACHMENT MANUAL MODE MAP P/N=1635224 EC=374888 PAGE 05 T4001 --- TTY ATTACHMENT MANUAL MODE MAP P/N=1635224 EC=374888 PAGE OSA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1012 * et pater B58 3345 er 1139 ayWZ Ane W RO DID AN INTERRUPT occur 2 (sHogip HoT} 
1013 * METHOD: THE "RFAD ID* COMMAND IS MONITORED FOR THE RETURN OF THE O0OO0O2ECC 1009 1130 J RT20C’ NO, JOMP f 
1014 * PROPER CONDITION CODE, AND THE CORPECT DEVICE ID. SHONLD 1131 * Z ¥ 
aye i AN ERROR OCCUR, IT WILL BE REPORTED, IF APPLICABLE. OO2ZECE 4124 2977 1132 HVA MSGO4,R1 MOVE MESSAGE TO BUFFER 
1017 We He he oe eh he ke af ake oh he fe af of of ae ake ae ae ae of fe af afe ae af afc ae af fe he oe ae of oe of afe fe oie fe ae ae ake ake ofc oe he fe ofe ae ae he ae ae ae he He he he he oe afc ake fe hc he hee oe he Boo oUR nea anor ie OvEy Beep e ee sc04,R7 *x 
1018 * OO2ZEDA 2944 1135 MVFN (R11), (R2) * 
0OO2DB2 4020 281A 0001 1019 RTO1 MVWI 1,RTNE *>*>*> PR 1 OO2EDC 6802 3664 1136 B PRINT OUTPUT THE MESSAGE 
OO2DB8 4020 281c 0001 1020 MVWI 1,CKPT *>*D>*D cP 61 1137 * 
OO2DBE 4020 287A 2F1C 1021 MVA 1§S01,DDB SET INT SERVICE ADDRESS OO2FEO 4020 281c 0004 1138 RT20C MVWI 4.CKPT ¥>*>*¥> RD. CP 4 
002DC4 C825 2880 1022 MVWZ INTIN,RO INITIALIZE ‘INT OCCURRED! INDR OO2EE6 8029 287E 28CB 1139 OB ThIT, PDATA SET 'PREP' IDCB TO LVL 0, ENABLED 
002DC8 8028 286E 2822 1023 MVB cc7, xtocc SET "EXPECTED! COND CODE INDR OO2EEC 8028 286F 2822 1140 4VB CC7 {tTocc SET 'FYPECTED COND CODE! INDR 
OO2DCE 9028 28D4 281E 1024 MVD RDID,IDCB SET 'IDCBt INDR OO2EF2 9028 28C8 281E 1141 MVD PREPR, IDCB SET *IDCBt INDR 
OO2DD4 680C 28D4 1025 TO RDID READ DEVICE ID OO2EF8 680C 28C8 1142 Io PREPR PREP TTY ATTACHMENT 
0OO02DD8 6F04 2DF6 Bae P BCC 7,RT105 IF GOOD CC, BRANCH OO2EFC 6F04 2F1A 1183 rm BCC 7,RT20H IF CC OKAY, BRANCH 
OO02DDC TOAE 1028 CPLSR R5 SET "RECEIVED COND CODE INDR OO02FO00 TOAE 1145 CPLSR RS SET 'RECEIVED! COND CODE INDR 
OO2DDE 356A 1029 SRL 13 2R5 * O0OO02FO02 356A 1146 SRL 13,R5 * 
OO2DEO C528 2823 1030 MVB R5,RIOCC * OO2FO4 C528 2823 1147 MVB R5,RIOCC * 
OO2DE4 4124 28E0 1031 MVA mSG600,R1 MOVE MESSAGE TO BUFFER OO2FO8 4124 2952 1148 MVA MS603,R1 MOVE MESSAGE TO BUFFER 
OO2DE8 4224 282C 1032 MVA BUFFR,R2 * OO2FOC 4224 282C 1149 MVA BUFFR,R2 * 
OO2DEC 4724 0025 1033 MVWI MSGO1-MSGO0O,R7 * OO2F10 4724 0025 1150 MVWI MSGO4-MSG03,R7 % 
OO2DFO 2944 1034 MVFN al (R2) * OO2F14 2944 1151 MVFN By) (R2) * 
OO2DF2 6802 3664 1035 ‘ PRINT OUTPUT THE MESSAGE 002F16 6802 3664 1152 Z RIN’ OUTPUT THE MESSAGE 
OO2DF6 4020 281c 0002 1037 RT105 MVWI 2,CKPT *>*>*> R 1, CP 2 1155 * 
OO2DFC 802B 2828 28D7 1038 CB AfTID, DVCID INSURE ID IS CORRECT QO02F1A 6F03 36AC 1156 RT20H BAL DEL,R7 WAIT FOR INTERRUPT 
002E02 1020 1039 JE RTO2 JOMP IF TT IS 1157 * 
1040 * OO2F1E 4020 281c 0005 1158 MVWI 5,CKPT *>*>*> R 2, CP 5 
OO2E04 8028 28D7 2826 1041 MVB DVCID, IDRDA SET "RECEIVED ID* INDR 002F24 C825 2880 1159 MVWZ ZATTN,RO INTERRUPT OCCUR ? (SHOULD NOT) 
OO2ZEOA 4124 2905 1042 MVA MSGO1,R81 MOVE MESSAGE TO BUFFER 002F28 1009 1160 JZ RT20L NO, JUMP 
OO2Z2EOERE 4224 282C 1043 MVA BUFFR,R2 * 1161 * 
002E12 4724 002A 1044 MVWI MSGO2-MSG01,R7 * OO2F2A 4124 29:3 1162 MVA MSGOS,R1 MOVE MESSAGE TO BUFFER 
OO2E16 2944 1045 MVFN (R11), (R2) * OO2F2E 4224 282C 1163 MVA BUFFR,R2 * 
O0O02E18 6802 3664 a ouo rf B PRINT OUTPUT THE MESSAGE Huey aaa OO3A 1163 MVWI Bear aa : 
1049 SRASL EET E SST E ON SEREAASS CELTS TORE Se TST tee renee eae ey eee ess BOSERE 6802 3664 1166 : HVEN perk ) OUTPUT THE MESSAGE 
1051 * NAME: ISSO1 (RTO1 INTERRUPT SERVICE SUBROUTINE) OO2F3C 4020 281c 0006 1168 RT20L MVWI 6,CKPT *>*>*> R 2, CP 6 
1052 * OO0O2F42 8028 28B0O 28CB 1169 MVB LVLO PDATA SET *PREP* IDCB TO LVL O, DISABLED 
1053 * PURPOSE: TRAP UNEXPECTED INTERRUPTS OO2F48 8028 286E 2822 1170 MVB cc7, xtocc SET "EXPECTED COND CODE! INDR 
1054 * OO2F4E 9028 28C8 281E 1171 MVD PREPR, IDCB SET "IDCBt INDR 
ee be METHOD: BUILD A COND CODE, LEVEL AND DVC ADDR IN R5. 0027 a4 680C 28C8 1172 to PREPR PREP TTY ATTACHMENT 
1057 He He fe he ae fe he ofe he he he he ae He 3h fe 3 Me fe fe fe fe ae fe ae oe He afe Hehe he ae afe 3c fe he he She He eke ae ae he he ae af she he ake fe ae he ae he he ae se ae fe 2c fe 3 of e afe ie ohe he oke ke 002F5 6FO4 2F76 Le BCC 7,RT20R cc OKAY, BRANCH 
1058 * QOO2F5C TOAE 1175 CPLSR R5 SAVE COND CODE 
OO2E1C TJOAE 1059 ISSO1 CPLSR R5 SET 'RECEIVED!' COND CODE INDR OO2F5E 356A 1176 SRL 13,R5 x 
OO2E1E 356A 1060 SRL 13,R5 * OO2F60 C528 2823 1177 MVB R5,RIOCC * 
002EF20 C528 2825 1061 MVB R5,RINCC * OO02F64 4124 2952 1178 MVA MSGO3,R1 MOVE MESSAGE TO BUFFER 
0O02E24 7819 1062 CPCL RO SET "LEVEL!" INDR OO2F68 4224 282C 1179 MVA BUFFR,R2 * 
002E26 C028 2827 1063 MVB RO,LEVEL * OO2F6C 4724 0025 1180 MVWI MSGO4-MSGO03,R7 * 
OO2ZE2A C728 2826 1064 MVB R7,1IDRDA SET "DEVICE ADDRESS" INDR 002F70 2944 1181 MVFN (Ri) (R2) * 
OO2ZE2E 4124 2B54 1065 MVA NSGOE,R1 MOVE MESSAGE TO BUFFER 002F72 6802 3664 1182 B RI f OUTPUT THE MESSAGE 
QOO2E32 4224 282C 1066 MVA BUFFR,R2 * 1183 * 
O02E36 GY724 OOF 1067 MVWI MSGO F-MSGOE,R7 * OO2F76 4020 281C 0007 1184 RT2OR MVWI 7 CKPT *>*>*> R 2, CP 7 
OO2E3A 2944 1068 MVFN (R1) 482) * OO2F7C 4020 28DE O008D 1185 MVWI xXx'OO8D* ,WDATA-1 SET IDCB TO WRITE 'C/S/R' O 
QOO2E3C 6F03 356C 1069 BAL OFF,R GET ON LEVEL 3 002F82 8028 286EF 2822 1186 MVB Cc7, XI0CC SET "EXPECTED COND CODE! INDR 
1070 * OO2F88 9028 28DC 281E 1187 MVD WRITE, IDCB SET § B*' INDR 
OO2E40 6802 3664 te B PRINT OUTPUT THE MESSAGE OO2F8E 680C 28DC 1188 Io WRITE ATTEMPT TO CAUSE AN INT TO TEST PREP 
1074 32 OR CIO IO ICC I IG OO ia GIGI IR IIR II i RR a aC Kk ok O02F92 6FO4 2FBO A 4c5 * BCC 7,/RT20W IF ACCEPTED, BRANCH 
1075 * OO2F96 TOAE 1191 CPLSR R5 SAVE COND CODE 
1076 * NAME: RTO2 (PRESET AND PREPARE TESTS) 002F98 356A 1192 SRL 13,R5 x 
1077 * OO2F9A C528 2823 1193 MVB R5,RIOCC * 
1078 * PURPOSE: INSURE THE TTY ATTACHMENT WILL ACCEPT RESET COMMANDS OO2F9E 4124 29DD 1194 MVA mMSG06,R1 MOVE MESSAGE TO BUFFER 
1079 * AND PREPARE COMMANDS AND RETURN THE PROPER CONDITION OO2FA2 4224 282C 1195 MVA BUFFR, R2 3 
1080 * CODES TO EACH. THE PREPARE REGISTER IS THEN TESTED OO2FA6 4724 0023 1196 MVWI MSGO7-MSG06,R7 * 
1081 * ALONG WITH THE PROPER UTILIZATION OF THE PREPARE DATA OO2FAA 2944 1197 MVFN {Ruy (R2) * 
1088 : ASSOCIATED WITH THE INTERRUPT REQUEST PRESENTATION. OO2FAC 6802 3664 V8 P R f OUTPUT THE MESSAGE 
1084 * METHOD: THE "RESET" COMMAND IS ISSUED, THEN THE PREPARE REG IS 1201 * 
1085 * TESTED FOR SETTINGS OF EACH LEVEL, BOTH ENABLED AND OO2FBO0 6F03 36AC 1202 RT20W BAL DEL,R7 WAIT FOR INTERRUPT 
1086 * DISABLED. THE ATTACHMENT IS THEN TESTED FOR CONDITIONS 1203 * 
1083 : OF "INTERRUPT PENDING!, "RESET AND "INTERRUPT REQUEST! OO2FB4Y 4020 281c 0008 1204 MVWI 8 CKPT *>*>*> R 2, CP 8 
? 
1089 [OO OCC oR Gg gigi ok ii koko deka tk Cae Se 2880 VS ee an ne es NO. SUMP. OCCUR ? (SHOULD NOT) 
1090 * 1207 * 
OO2E44 4020 281A 0002 1091 RTO2 MVWI 2,RTNE *>*¥>*> R 2 002FCO0 4124 2A00 1208 MVA MSGO7,R1 MOVE MESSAGE TO BUFFER 
OO2E4A 4020 281C 0001 1092 MVWI 1,CKPT *> *>¥*> cp 1 OO2FC4 4224 282C 1209 MVA BUFFR,R2 * 
002F50 4020 287A 34CC 1093 MVA 1§S02,DDB FLIP DDB OO2FC8 4724 002C 1210 MVWI MSGO8-MSGO7,R7 * 
002E56 8028 286E 2822 1094 MVB cc7,xfocc SET "EXPECTED! COND CODE INDR OO02FcC 2944 1211 MVFN (Ri) (R2) * 
OO02E5C 9028 28D8 281E 1095 MVD RST, IDCB SET *IDCB* INDR OO2FCE 6802 3664 1212 RINT OUTPUT THE MESSAGE 
OO2E62 680C 28D8 1096 Io RST RESET 1213 * 
ee een enon 1098 * Pee, aes eee oy DOSES $058 5B Gk 982 1348 ae VB. céq Rroce SET "EXPECTED COND CODE’ 7 5 Aetrex 
OO2E6A T7OAE 1099 CPLSR R5 SET "RECEIVED' COND CODE INDR QOO2FDE 9028 28DC 281E 1216 MVD WRITE, IDCB SET ‘TDCHS CHDE . : sar 
QOO2E6C 356A 1100 SRL 13,R5 * OO2FE4 680C 28DC 1217 TO WRITE FORCE *BUSY® 
OO2E6E C528 2823 1101 MVB R5,RIOCC * OO2FE8 6904 3006 1218 BCC 1,RT216 COND CODE OK, BRANCH 
OO2E72 4124 2C8C 1102 MVA MS616,R1 MOVE MESSAGE TO BUFFER 1219 * 
OO2E76 4224 282C 1103 MVA BUFFR,R2 * OO2FEC T7OAE 1220 CPLSR R5 SAVE COND CODE 
OO2ZE7A 4724 0030 1104 MVWI MSG17-MSG16,R7 * OO2FEE 356A 1221 SRL 13,k5 * 
OO2ZE7E 2944 1105 MVFN a (R2) * OO2FFO C528 2823 1222 MVB R5,RIOCC *x 
00O2E80 6802 3664 1106 PRI £ OUTPUT THE MESSAGE OO2FFY4 4124 2A2C 1223 MVA msGo8, R1 MOVE MESSAGE TO BUFFER 
1107 * OO2FF8 4224 282C 1224 MVA BUFFR,R2 * 
Q0O02E84 4020 281Cc 0002 1108 RT205 MVWI 2,CKPT *>*>*> R 2, CP 2 OO2FFC 4724 OO03F 1225 MVWI MSGO09-MSG08,R7 * 
93650 £938 deee 3852 1900s cero grade En EXBEergRY'cOND Cobe tuba 393089 2803 366 1335 VEN eth g (2) 
B RI OUTPU H E 
S33ese egee Zeca “F112 BSP BR EbyrPcR pepagectny Aptacutenn ne oes sero te 1238 elena 
F AC 1 9 R 6 D 7 W U 
OO2EAO0 6F0O4 2EBE 1113 BCC 7,RT20A IF ACCEPTED, BRANCH +595 Se Bak eed fs a One eeu re 
We? 933993 £928 2885 °° 1383 RHE Ea gC? moaaD weap” 
OO2EA4 TOAE 1117 CPLSR R5 SET "RECEIVED! COND CODE INDR 003014 1009 1233 pl = enotne NO. SOME. DCE: (SHOULD NOT) 
CODERS e258 2823 1419 uVE £8 EF occ * 003016 4124 2A6 1338 
2A6B 1235 Vv G U 
OO2Z2EAC 4124 2952 1120 MVA 1S603,R1 MOVE MESSAGE TO BUFFER O0O0301A 1534 282C 1236 HVA BUFFER RS Bove BER a CE oe ee reee 
OO2ZEBO 4224 282C 1121 MVA BUFFR,R2 * OO0301E 4724 0033 1237 MVWI MSGOA-MSG09,R7 * 
S32ens gage 0025 133000 AYE ape dayOeP7 $33988 2802 a6e 1335 SVEN SRT A 
OO2EBA 6802 3664 ee ‘ RINT OUTPUT THE MESSAGE 2-300" 13140 *« B Bt Ue hon) sue Eons 
242 * 
OO2EBE 6F03 36AC lee RT2OA BAL DEL,R7 WATT FOR INTERRUPT 1243 * TEST PREPARE TO LEVEI 0, ENABLED 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003028 4020 281C OO0B 1245 RT21B MVWI X'B',CKPT *>*>*> R 2, CP B 1361 * 

00302F 8029 287E 28CB 1246 OB IBIT. PDATA SET 'I-BITt IN PREP FIELD 00318E 4124 2A00 1362 MVA MSGO7,R1 MOVE MESSAGE TO BUFFER 

003034 8028 286E 2822 1247 MVB cc7, kIocc SET "EXPECTED COND CODE? INDRS 003192 4224 28 2¢ 1363 MVA BUFFR,R2 

00303A 8028 286F 2824 1248 MVB CC7.XINCC * 003196 4724 002C 1364 MVWI MSGO8-MSGO7,R7 * 

003040 9028 28C8 281E 1249 MVD PREPR, IDCB SET "IDCB* INDR 00319A 2944 1365 NVFN CAD (R2) * 

003046 680C 28C8 1250 to p PREP, ENABLED 00319C 6802 3664 1366 B RING OUTPUT THE MESSAGE 

OO304A 6F04U 3068 1231 : BCC 7,R7T220 COND’CODE OK, BRANCH 1367 : 

1253 ** FIRST INTERRUPT SHOULD OCCUR AT THIS POINT. EXECUTION SHOULD RESUHE 0031A0 4020 281c 0012 1370 RT240 MVWI xX'12',CKPYr *>*>*> R 2, CP 12 

1254 ** ON THIS LEVEL (3), AT LOCATION 'RT220' AFTER THE INTERRUPT HAS BEEN 0031A6 8028 286A 2822 1371 MVB cc1,xfocc SET "EXPECTED COND CODE! INDR 

1255 ** SERVICED 0031AC 9028 28DC 281E 1372 MVD WRITE, IDCB SET "IDCBt INDR 

1256 * 0031B2 680C 28DC 1373 IO WRIT FORCE ' BUSY? 

OO304E TOAE 1257 CPLSR RS SAVE COND CODE 0031B6 6904 314D4 1374 BCC TRESS COND CODE OK, BRANCH 
003050 356A 1258 SRL 13,R5 * 1375 * 
003052 C528 2823 1259 MVB R5,RIOCC % 0031BA 70OAE 1376 CPLSR R5 SAVE COND CODE 
003056 4124 2952 1260 MVA NS603,R1 MOVE MESSAGE TO BUFFER 0031BC 356A 1377 SRL 13,R5 
00305A 4224 282Cc 1261 HVA BUFFR ,R2 * 0031BE C528 2823 1378 MVB R5,RIOCC * 
00305E 4724 0025 1262 MVWI MSGO4-MNSGO3,R7 * 0031C2 4124 2A2cC 1379 MVA ms608,R1 MOVE MESSAGE TO BUFFER 
003062 2944 1263 MVFN sR) (R2) * 0031C6 4224 282C 1380 MVA BUFFR,R2 * 
003064 6802 3664 1264 RINT OUTPUT THE MESSAGE 0031CA 4724 003F 1381 MVWI MSGO9-NSGO8,R7 * 
1265 * 0031CE 2944 1382 MVFN R1) , (R2) * 
003068 6F03 36AC 1266 RT220 BAL DEL,R7 WAIT FOR INTERRUPT 0031D0 6802 3664 1383 2 RIN? OUTPUT THE MESSAGE 
00306C 4020 281c 000Cc 1268 MVWI xfct CKET *>*>*> R 2, CP C 0031D4 6F03 36AC 1385 RT265 BAL DEL,R7 WAIT FOR INTERRUPT 
003072 c825 2880 1269 MVWZ INTIN,R INTERRUPT OCCUR ? (SHOULD) 1386 * 
003076 1809 1270 INZ RT228 YES, JUMP 0031D8 4020 281c 0013 1387 MVWI X'43",CKPT *>*>*> R 2, CP 13 
1271 * 0031DE C825 2880 1388 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD NOT) 
003078 4124 2A9E 1272 MVA NSGOR, R1 MOVE MESSAGE TO BUFFER 0031E2 100D 1389 JZ RT249 NO, JUMP 
00307C 4224 282c 1273 MVA BUFF 7 R2 * 1390 * 
003080 4724 002c 1274 MVWI HSGOBS —MSGOA,R7 * 0031E4 7OAE 1391 CPLSR R5 SAVE COND CODE 
003084 2944 1275 MVFN qr ) , (R2) * 0031E6 356A 1392 SRL 13,85 * 
003086 6802 3664 1276 B RINT OUTPUT THE MESSAGE 0031E8 C528 2823 1393 MVB R5,RIOCC * 

1277 * 0031EC 4124 2A6B 1394 MVA MSG09 ,R1 MOVE MESSAGE TO BUFFER 
00308A 680C 28CcC 1278 RT228 IO READ CLEAR "READ! BUFFER 0031FO 4224 282c 1395 MVA BUFFR, R2 % 

1279 * 0031F4 4724 0033 1396 MVWI MSGOA-MSG09,R7 * 

1281 * 0031F8 2944 1397 MVFN (Ra) (R2) * 
00308E 8028 28B0 28CB 1282 MVB LVLO, gPDATA DISABLE INTERRUPTS 0031FA 6802 3664 1398 RIN¢ OUTPUT THE MESSAGE 
003094 680C 28C8 1283 To PRE x 1399 * 

003098 4020 28DE OOOA 1284 AVWI K1O00A" ,WDATA- 1 SET IDCB TO WRITE 'L/F' OUT 1401 * 

00309E 8028 286E 2822 1285 MVB CC7,X10CC SET "EXPECTED COND CODE INDRS 0031FE 4020 281C 0014 1402 RT249 MVWI X'14", CKPT *>*>*> R 2, CP 14 
OO30A4 8028 286E 2824 1286 MVB CCT, TINGE * 003204 8029 287EF 28CB 1403 OB TBIT, PDATA SET ‘I-BIT' IN PREP FIELD 

OO30AA 9028 28DC 281E 1287 MVD WRITE, IDCB SFT "IDCB* INDR 00320A 8028 286E 2822 1404 MVB CCc7, ktocc SET "EXPECTED COND CODE! INDRS 

0030B0 680cC 28DC 1288 TO WRITE FORCE INTERRUPT 003210 8028 2868 2824 1405 MVB CC2’xXINCC * 

OO30B4 6FO4 30D2 1289 BCC 7,RT22D IF COND CODE OK, BRANCH 003216 9028 28C8 281E 1406 MVD BREPR, IDCB SET 'IDCB' INDR 

1290 * 00321c 680C 28C8 1407 Io PREP, ENABLED 
0030B8 T7OAE 1291 CPLSR RS SAVE COND CODE 003220 6F04 323E 1408 BCC sR tart COND CODE OK, BRANCH 
OO30BA 356A 1292 SRL 13,R5 * 1409 * 
0030BC C528 2823 1293 MVB R5,RIOCC * 003224 70AE 1410 CPLSR R5 SAVE COND CODE 
0030CO0 4124 29DpD 1294 MVA muSG06,R1 MOVE MESSAGE TO BUFFER 003226 356A 1414 SRL 13,R5 * 
0030C4 4224 282C 1295 MVA BUFFR,R2 * 003228 C528 2823 1412 MVB R5-R ByoCG * 
0030C8 4724 0023 1296 MVWI MSGO7-MSGO06,R7 * 00322C 4124 2952 1413 MVA 4uséG03 MOVE MESSAGE TO BUFFER 
0030CC 2944 1297 MVFN fB1) (R2) * 003230 4224 282c 1414 HVA BUFF Ay * 
0030CE 6802 3664 1298 B RINT OUTPUT THE MESSAGE 003234 4724 0025 1415 MVWI MS SOR. a R7 * 

1299 * 003238 2944 1416 MVFN gr Na * 
0030D2 6F03 36AC 1300 RT22D BAL DEL,R7 TEST DELAYS 00323A 6802 3664 1417 ft OUTPUT THE MESSAGE 

1301 * HK Ka he He ie ok ke 1418 * 
0030D6 6F03 36AC 1302 BAL DEL, R7 BOR OR tok x 00323E 6F03 36AC 1419 RT24E BAL DEL,R7 WAIT FOR INTERRUPT 

13u3 * RHR KH aK ok ae ok 1420 * 

OO30DA 6F03 36AC 1304 BAL DFL,P7 RICK kt RK 003242 4020 281c 0015 1421 MVWI X*'45",CKPT *>*>*> R 2, CP 15 

1305 * AOR OR AOR 003248 C825 2880 1422 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD) 
OO30DE 8029 287E 28CB 1306 OB IBIT, PDATA ENABLE INTERRUPTS 00324c 180D 1423 JNZ RT25A YES, JUMP 
0030E4 680C 28c8 1307 IO PREPR * 1424 * 

OO30E8 6F03 36AC 1308 BAL DEL,R7 WAIT FOR INTERRUPT 00324R TOAE 1425 CPLSR R5 SAVE COND CODE 

1309 * 003250 356A 1426 SRL 13,R5 * 
00O30EC 4020 281C OOOE 1310 MVWI X'F# CKET *>*>*> R 2, CP CE 003252 C528 2823 1427 “VB R5,RIOCC * 
0030F2 C825 2880 1311 MVWZ INTTH,R INTERRUPT OCCUR ? (SHOULD) 003256 4124 2A9E 1428 MVA MSGOA,R1 MOVE MESSAGE TO BUFFER 
0O030F6 1809 1312 JNZ YES, JUMP 00325A 4224 282C 1429 MVA BUFFR, R2 * 

1313 * 00325E 4724 002C 1430 MVWI MSGOB-MSGOA,R7 x 
0030F8 4124 2ACA 1314 MVA MSGOB,R1 MOVE MESSAGE TO BUFFER 003262 2944 1431 MVFN gp (R2) * 
0OO0O30FC 4224 282C 1315 MVA BUFFR,R2 * 003264 6802 3664 1432 RINT OUTPUT THE MESSAGE 
003100 4724 002C 1316 MVWI MSGOC- (BSCOB, R7 * 1433 * 

003104 2944 1317 MVFN {Ri Vn * 003268 680C 28cC 1434 RT25A IO READ CLEAR *READ* BUFFER 
003106 6802 3664 1318 ‘ B OUTPUT THE MESSAGE ee : 

1321 * 00326C 8028 28B1 28CB 1438 MVB LVL1,PDATA DISABLE INTERRUPTS 

1322 ** TEST PREPARE TO LEVEL 1 003272 680C 28C8 1439 tO PREP * 

1323 * 003276 4020 281C 0018 1440 MVWI X*18" CKPT *>*>*> R 2, CP 18 
00310A 4020 281c OOOF 1324 RT231 MVWI xePie CKPT *>* >*> F 00327C 8028 286E 2822 1441 MVB cc7,Xf0cc SET "EXPECTED COND CODE" INDRS 
003110 8028 28B1 28CB 1325 MVB LVL1,PDATA SFT '"PREP' IDCB TO LVL 1, pest buen 003282 8028 286E 2824 1442 MVB CC7, XINCC * 

003116 8028 286E 2822 1326 MVB cc7,xtocc SET "EXPECTED COND CODE! INDRS 003288 9028 28DC 281E 1443 MVD WRITE, IDCB SET "IDCBt INDR 
00311C 8028 2870 2824 1327 MVB CCX, XINCC * 00328E 680C 28DC 1444 TO WRITE FORCE INTERRUPT 
003122 9028 28C8 281E 1328 MVD PREPR, TDCB SET "IDCBt INDR 003292 6F04 32B0 1445 BCC 7,RT25E IF COND CODE OK, BRANCH 
003128 680C 28C8 1329 Io PREPR PREP TTY ATTACHMENT 1446 * 
00312C 6F0O4 314A 1330 BCC 7,R1T236 CC OKAY, BRANCH 003296 70OAE 1447 CPLSR R5 SAVE COND CODE 
1331 * 003298 356A 1448 SRL 13,R5 * 
003130 7OAE 1332 CPLSR R5 SAVE COND CODE 00329A C528 2823 1449 MVB R5,RIOCC * 
003132 356A 1333 SRL Aas R5 * 00329E 4124 29DD 1450 MVA mMS606,R1 MOVE MESSAGE TO BUFFER 
003134 C528 2823 1334 MVB "RIOCC * 0032A2 4224 282C 1451 MVA BUFFR,R2 * 
003138 4124 2952 1335 MVA Re kO Se R1 MOVE MESSAGE TO BUFFER 0032A6 4724 0023 1452 MVWI MSGO7-MSG06,R7 * 
00313C 4224 282C 1336 MVA BUFFR, R2 * OO32AA 2944 1453 MVFN sBv. (R2) * 
003140 4724 0025 1337 MVWI MSGO4-MSGO03,R7 * 0032AC 6802 3664 1454 RINT OUTPUT THE MESSAGE 
003144 2944 1338 MVFN (Ri) (2) * 1455 * 
003146 6802 3664 1339 RINT OUTPUT THE MESSAGE 0032B0 6F03 36AC 1456 RT25E BAL DEL,R7 TEST DELAYS 
1340 * 1457 * RK KH KKK KK 
00314A 4020 281c 0010 1341 RT236 MVWI xX'10",CKPT *>*>*> R 2, CP 10 0032B4 6F03 36AC 1458 BAL DEL,R7 tok dK OR * 
003150 8028 286E 2822 1342 MVB CC7,XLOCC SET "EXPECTED COND CODE INDR 1459 * se tok ak 
003156 9028 28DC 281E 1343 MVD WRITE, IDCB SET 'TDCB! INDR 0032B8 6F03 36AC 1460 BAL DEL,R7 FoR tok 
00315Cc 680c 28DC 1344 To WRITE ATTEMPT TO CAUSE AN INT TO TESTI PREP 1461 * RK OR 
003160 6F04 317E 1345 BCC 7,RT23C IF ACCEPTED, BRANCH 0032BC 8029 287E 28CB 1462 OB IBIT,PDATA ENABLE INTERRUPTS 
1346 * 0032c2 680C 28C8 1463 TO PREPK * 
003164 7OAE 1347 CPLSR R5 SAVE COND CODE 0032C6 6F03 36AC 1464 BAL DEL, R7 WAIT FOR INTERRUPT 
003166 356A 1348 SRL 13,P5 ok 1465 * 
003168 C528 2823 1349 MVB R5,RIOCC * 0032CA 4020 281cC 0019 1%66 MVWI X*19',CKPT *>*>*> R 2, CP 19 
00316C 4124 29DD 1350 MVA MSGO6,R1 MOVE MESSAGE TO BUFFER 0032D0 c825 2880 1467 MVWZ INTIN,RO INTERROPT OCCUR ? (SHOULD) 
003170 4224 282c 1351 MVA BUFFR, R2 * 0032D4 1809 1468 INZ RT262 YES, JOM 
003174 4724 0023 1352 MVWI MSGO7-MSGO06,R7 * 1469 * 
003178 2944 1353 MVFN (RI), (R2) * 0032D6 4124 2ACA 1470 MVA MSGOB,R1 MOVE MESSAGE T0 BUFFER 
00317A 6802 3664 1354 PRINT OUTPUT THE MESSAGE 0032DA 4224 282c 1471 MVA BUFFR, R2 * 

1355 * 0032DE 4724 002C 1472 MVWI SGOCS (ASC OB. R7 * 
00317E 6F03 36AC 1356 RT23C BAL DEL,R7 WAIT FOR INTERRUPT 0032E2 2944 1473 MVFN get dg (R * 

1357 * 0032E4 6802 3664 1474 B f OUTPUT THE MESSAGE 
003182 4020 281c 0011 1358 MVWI "41" CKPT *>*>*> R 2, CP 11 1475 * 

003188 C825 2880 1359 MVWZ Inttn’ RO INTERRUPT OCCUR ? (SHOULD NOT) 1477 * 
00318cC 1009 1360 JZ RT2U0° NO, JUMP 1478 ** TEST PREPARE TO LEVEL 2 
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1479 * 003454 4020 281cC 0023 1596 SVWI xX'23*,CKPT *>*>*> R 2, CP 23 
0032E8 4020 281C OO1A 1480 RT262 MVWI X*TA" CKPT *>* >*> CP 1A 00345A 8028 286E 2822 1597 MVB cc7,xfocc SET "EXPECTED COND CODE* INDRS 
0032EE 8028 28B2 28CB 1481 MVB  LVL2,PDATA SET '"PREP* IDCB TO LVL 2, pesk&Lep 003460 8028 286E 2824 1598 NVB CC7 XINCC x 
OO32F4 8028 286E 2822 1482 MVB cc7, xtocc SET "EXPECTED COND CODE! INDRS 003466 9028 28DC 2814E 1599 MVD WRITE, IDCB SET "IDCB' INDR 
0032FA 8028 2870 2824 1483 MVB CCX, XINCC 00346C 680C 28DC 1600 IO WRI FORCE INTERRUPT 
003300 9028 28C8 281E 1484 MVD PREPR,IDCB SET *IDCB' INDR 003470 6F04 348k 1601 BCC 2 ae RTD BF TF COND CODE OK, BRANCH 
003306 680C 28C8 1485 sce) PREPR PREP TTY ATTACHMENT 1602 * 
00330 6F04 3328 1486 BCC 7,RT267 CC OKAY, BRANCH 003474 7OAE 1603 CPLSR R5 SAVE COND CODE 
1487 * 003476 356A 1604 SRL 13,R5 % 
00330E TOAE 1488 CPLSR R5 SAVE COND CODE 003478 c528 2823 1605 MNVB R5,RIOcCC * 
003310 356A 1489 SRL 13,R5 * 00347C 4124 29DD 1606 HVA MSGO6,R1 MOVE MESSAGE TO BUFFER 
003312 C528 2823 1490 MVB R5,RIOCC * 003480 4224 282Cc 1607 MVA BUFFR,R2 * 
003316 4124 2952 1491 MVA NS603,R81 MOVE MESSAGE TO BUFFER 003484 4724 0023 1608 MVWI HSGO7- HSG06, R7 x 
00331A 4224 282C 1492 MVA BUFFR,R2 * 003488 2944 1609 MVFN (Ri 4 (F * 
00331E 4724 0025 1493 HVWI MSGO4-HSG03,R7 * 00348A 6802 3664 1610 B OUTPUT THE MESSAGE 
003322 2944 1494 MVFN (RA) (R2) * 1611 * 
003324 6802 3664 1495 B RINT OUTPUT THE MESSAGE 00348E 6F03 36AC 1612 RT28F BAL DEL, R7 TEST DELAYS 
003328 4020 281C 001B 1497 RT267 HVWI "1B" ,CKPT *>*>*> R 2, CP 1B 003492 6F03 36AC 1614 BAL DEL,R7 ea tok 
00332E 8028 286E 2822 1498 MVB ect xfocc SET "EXPECTED COND CODE! INDR 1615 * HR RK hea se tke 
003334 9028 28DC 281E 1499 MVD WRITE, IDCB SET *IDCB' IND 003496 6F03 36AC 1616 BAL DEL,R7 wok sok kok 
00333A 680C 28DC 1500 To WRITE ATTEMPT TO CAUSE AN INT TO TEST PREP. 1617 * KERK KEK RHE 
00333E 6F04 335C 1501 BCC 7,RT26C IF ACCEPTED, BRANCH 00349A 8029 287E 28CB 1618 OB IBIT, PDATA ENABLE INTERRUPTS 
1502 * 0034A0 680C 28C8 1619 TO PREPR x 
003342 TJOAE 1503 CPLSR R5 SAVE COND CODE OO34A4 6F03 36AC 1620 BAL DEL,R7 WAIT FOR INTERRUPT 
003344 356A 1504 SRL 13,R5 * 1621 * 
003346 C528 2823 1505 MVB R5,RIOCC * 0034A8 4020 281c 0024 1622 MVWI X'24",CKPT *>*>*> R 2, CP 24 
OO0334A 4124 29DD 1506 MVA MSG06,R1 MOVE HESSAGE TO BUFFER OO34AE C825 2880 1623 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD) 
OO334E 4224 282C 1507 MVA BUFFR,R2 * 0034B2 1809 1624 INZ RT290 YES, JUMP 
003352 4724 0023 1508 MVWI MSGO7-MSG06,R7 * 1625 * 
003356 2944 1509 MVFN (RA) 2) * OO34B4 4124 2ACA 1626 MVA MSGOB,R1 MOVE MESSAGE TO BUFFER 
003358 6802 3664 1510 PRINT OUTPUT THE MESSAGE 0034B8 42294 289C 1627 MVA  BUFFR R2 vs 
1511 * 0OO34BC 4724 002C 1628 MVWI BSGOC- K BocoPe R7 * 
1513 * 0034C0 2944 1629 MVFN (RA), (B * 
00335C 6F03 36AC 1348 RT26C BAL DEL,R7 WAIT FOR INTERRUPT 0034C2 6802 3664 1630 : B ui OUTPUT THE MESSAGE 
003360 4020 281c O01C 1516 MVWI "1C' CKPT *>*>*> R 2, CP IC 0034C6 680C 28CC 1632 RT290 I0 READ CLEAR "READ BUFFER 
003366 C825 2880 1517 MHVWZ Tye’ "RO INTERRUPT OCCUR ? (SHOULD NOT) OO34CA 5041 1633 J RTOS JUMP 
00336A 100D 1518 JZ RT270 NO, JUMP 1634 * 
1519 * VE 36 HK RR He He a RR a RR ROR at a RO RO ORR IO RO ok de ek tee i oi i ake oe tk de ae ok 
00336C 7OAE 1520 CPLSR RS SAVE COND CODE 1637 * 
00336E 356A 1521 SRL 13,R5 * 1638 * NAME: ISSO2 (RTO2 INTERRUPT SFRVICE SUBROUTINE) 
003370 C528 2823 1522 MVB R5,RIOCC * 1639 * 
003374 4124 2A00 1523 HVA MSGO7,R1 MOVE MESSAGE TO BUFFER 1640 * PURPOSE: TO SERVICE INTERRUPTS FROM 'RTO2' AND TO DETERMINE IF: 
003378 4224 282Cc 1524 MVA BUFFR,R2 * 1641 * THE PROPER LEVEL WAS UTILIZED FOR THE INTERRUPT, THE 
00337C 4724 002C 1525 MVWI MSGO8-MSGO7,R7 * 1642 * CORRECT DEVICE ADDRESS WAS RETURNED, AND THE PROPER 
003380 2944 1526 MVEN (RI) (R2) * 1643 * CONDITION CODE WAS SET UPON INTERRUPTING. 
003382 6802 3664 1527 PRINT OUTPUT THE MESSAGE 1644 * 
1528 * 1645 * METHOD: THE CONDITION CODE IS TESTED AND ANY ERROR TRAPPED. ALSO, 
003386 4020 281c 001D 1529 RT270 MVWI xX'1D",CKPT *>*>*> R 2, CP 1D 1646 * ANY DEVICE ADDR OR LEVEL ERROR IS LOGGED. 
00338C 8028 286E 2822 1530 MVB cc7,xfocc SET "EXPECTED COND CODE! INDR 1647 * 
003392 9028 28DC 281E 1531 MVD WRITE, IDCB SET 'IDCB* INDR 1648 3h aoc oo lok dk gk iaiioiok ita tok tok doko ok allot idk doko dedoke tcdotok gage 
003398 680C 28DC 1532 TO WRITE. FORCE 'pusy?t 1649 * 
00339C 6904 33BA 1533 BCC 1,RT275 COND CODE OK, BRANCH 0034CC TOAE 1650 ISSO2 CPLSR RS SAVE COND CODE 
1534 * OO34CE 356A 1651 SRL 13,R5 * 
0033A0 7OAE 1535 CPLSR R5 SAVE COND CODE 0034D0 C528 2825 1652 MVB R5,RINCC * 
0033A2 356A 1536 SRL 13,R5 a 0034D4 C728 2826 1653 MVB R7,1DRDA SET "DVC ADDR* INDR 
0033A4 C528 2823 1537 MVB R5,RIOCC * 0034D8 78F9 1654 CPCL R7 SET "LEVEL' INDR 
0033A8 4124 2A2C 1538 MVA uS608,R1 MOVE MESSAGE TO BUFFER 0034DA C728 2827 1655 MVB R7,LEVEL x 
0033AC 4224 282C 1539 MVA BUFFR,R2 * OO34DE 802B 2824 2825 1656 CB XINCC,RINCC GET CORRECT INTERRUPT CC ? 
0033B0 4724 003F 1540 MVWI MSGO9-MSG08,R7 * O034E4 100B 1657 JE S0200 YES, 
0033B4 2944 1541 MVFN {Ray (R2) 1658 * 
0033B6 6802 3664 1542 B RING OUTPUT THE MESSAGE 0O034E6 4124 2873 1659 NVA MSGOF,R1 MOVE MESSAGE TO BUFFER 
1543 * OO34EA 4224 282C 1660 MVA BUFFR, R2 * 
1545 * OO34EE 4724 OOF 1661 MVWI MSG10-HSGOF,R7 * 
0033BA 6F03 36AC 1546 RT275 BAL DEL,R7 WAIT FOR INTERRUPT OO34F2 2944 1662 MVFN (R1) R2) * 
1547 * OO34F4 6F03 356C 1663 BAL  OFF,R GET ON LEVEL 3 
0033BE 4020 281C OO1E 1548 MVWI X"1E",CKPT *>*>*> R 2, CP 1E 1664 * 
0033C4 C825 2880 1549 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD NOT) O0O34UF8 6802 3664 1665 B PRINT OUTPUT THE MESSAGE 
0033cC8 100D 1550 57 RT279 NO, JUMP 1666 * 
1551 * 0034FC C120 28CB 1667 S0200 MVB PDATA, R1 GET EXPECTED LEVEL 
0033CA TJOAE 1552 CPLSR R5 SAVE COND CODE 003500 310A 1668 SRL R1 GET RID OF "I-BIT# 
0033CC 356A 1553 SRL 13,F5 = 003502 C124 2827 1669 B LEVEL, R1 ACTUAL = EXPECTED ? 
0033CE C528 2823 1554 MVB R5,RIOCC ak 003506 100B 1670 JE 0207" YES, JUMP 
0033D2 4124 2A6B 1555 MVA MSG09,R1 MOVE MESSAGE TO BUFFER 1671 * 
0033D6 4224 282C 1556 MVA BUFFR,R2 * 003508 4124 2AF6 1672 MVA MSGOC,R1 MOVE MESSAGE TO BUFFER 
QOO033DA 4724 0033 1557 MVWI MSGOA-MSGO9,R7 * 00350cC 4224 282c 1673 MVA BUFFR, "R2 * 
0033DE 2944 1558 MVFN {Ry (R2) * 003510 4724 001B 1674 MVWI HSGOD- KSGOC, R7 * 
0033E0 6802 3664 1559 RINT OUTPUT THE MESSAGE 003514 2944 1675 MVPEN ie) 4R2) * 
1560 * 003516 6F03 356C 1676 BAL f GET ON LEVEL 3 
0033E4 4020 281C OO1F 1561 RT279 MVWI X'1F',CKPT *>*>*> R 2, CP IF 1677 * 
0033EA 8029 287E 28CB 1562 OB TBIT,PDATA SET "I-BIT* IN PREP FIFLD 00351A 6802 3664 1678 B PRINT OUTPUT THE MESSAGE 
0033F0 8028 286F 2822 1563 MVB cc7, XTOCcCc SET "EXPECTED COND CODE" INDRS 1679 * 
0033F6 8028 286B 2824 1564 MVB CC2,XINCC * 1681 * 
0033FC 9028 28C8 281E 1565 MVD  PREDR,IDCB SET *IDCB' INDR 00351E 802B 19D0 2826 1682 S0207 CB DEVADD,IDRDA CHECK FOR CORRECT DEVICE ADDRESS 
003402 680C 28C8 1566 Io PREPR PREP, ENABLED 003524 1008 1683 JE S0208 OK, JUMP 
003406 6F04 3424 Vad ‘ BCC 7,RT27E COND CODE OK, BRANCH 1684 * 
003526 4124 2811 1 MVA MSGOD,R1 MOVE MESSAGE TO BUFFER 
OO340A TOAE 1569 CPLSR RS SAVE COND CODE 00352A 4224 282C 1686 MVA BUFFR ,R2 *« 
00340C 356A 1570 SRL 13,R5 - 00352E 4724 0043 1687 MVWI MSGOE-MSGOD,R7 * 
3395 9338 3823 1273 Ave RaQ 5°89 OVE MESSAGE TO BOFFER agzeag 2988 eee BEEN GED) P2) 
P 003534 6F03 356C 1689 BAL OFF GET ON LEVEL 
0341 4954 0095 127% NVI HSGOURSCO3,R7 * ei 
= UTP HE MESSAGE 
ee meet ted MVEN (Ra) (aay : 003538 6802 3664 a2) ; B PRINT O Ur T 
003420 6802 3664 1240 : PRINT OUTPUT THE MESSAGE 00353C O5FE 1693 $0208 ABI <5R3 WAS OUR ENTRY CC = 2 ? 
353E 1803 16 JN S0209 NO, JUMP 
003424 6F03 36AC 1978 RT27E BAL DEL,R7 WAIT FOR INTERRUPT ae 1695 * . ’ ; 
003540 8028 286c 2824 1 MVB cc3 XINCC YES. EXPECT IMMEDIATE ENTRY, CC 
003428 4020 281C 0020 1580 MVWI X*20',CKPT *>*>*> R 2, CP 20 003546 4020 2880 0001 1697 $0209 MVWI ;INTIN SET "INT OCCURRED! INDR , 
00342E C825 2880 1581 MVWZ INTIN,RO INTERRUPT OCCUR ? (SHOULD) 00354C 6102 1698 LEX qe RETURN 
003432 1809 1582 INZ RT28A YES, JUMP 1699 * 
1583 * V7 OV Ka RR RHR RK KK KK KK RH KK KK KK KK KK KK OK KK KK KE KEK KOK KK KEK KK 
003434 4124 2A9E 1584 RT280 MVA MSGOA,R1 MOVE MESSAGE TO BUFFER 1702 * 
003438 4224 282C 1585 MVA BUFFR, 7R2 * 1703 * NAME: RTOS (TERMINATION) 
gota Sgay 002° 3670 AVN Teepe? 1708 
705 * PURPOSE: TO TERMI E TESTING OF THE CURRENT DEVICE. 
003442 6802 3664 1538 B af Teg OUTPUT THE MESSAGE eee ¥ : ee a 
1589 * 1707 * METHOD: THE DEVICE IS RESET, THEN CONTROL IS PASSED TO DCP/MDI. 
003446 680C 28CC 1590 RT28A IO READ CLEAR "READ" BUFFER 1708 * 
1591 * FT OD A HI He HR ee He ee He he ee ee ae ee a ee ae Re a oe a i 2 oc a eo oe ck ok kK ek kK ek tok i kK tok fc 
00344AR 8028 28B2 28CB 1293 7 MVB LVL2,PDATA DISABLE INTERRUPTS 1710 * : 
00354E 4020 281A 0005 1711 RTO MVWI 5,RTNE *>*>*> RS 
003450 680C 28C8 1595 To PREPR * 003554 4020 281C 0001 1712 MVWI 1,CKPT *> *>*> cP 1 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00355A 4020 28CA 0000 1713 MVWI O,PDATA-1 UN-PREPARE TTY ATTACHMENT 1830 * 
003560 680C 28C8 1714 Io PREPR * 003650 8828 28B3 282A 1831 MVW MCKCD,PGMID SET PROGRAM ID TO ‘DCP/MDI' APRRS TT) 
003564 680C 28D8 1715 Io RST RESET THE TTY ATTACHMENT 003656 4124 2D0C 1832 MVA MCMSG,R1 MOVE MESSAGE STRING TO BUFFE 
003568 6802 35E8 1716 B GDEND GO END IT 00365A 4224 282cC 1833 MVA BUFFR,R2 * 
1717 * 00365E 4724 0044 1834 MVWI MCMND-MCMSG,R7 * 
1719 9 II IO ROR II IORI IR io ed i foi ik ak kak ea a 003662 2944 1835 MVFN (R11), (R2) *x 
1720 * 1836 * 
1736 * NAME: EXIT TO LEVEL THREE SUBROUTINE 1838 2 III ROI Io a ICICI II ROK kai deli dea kak ie gai ak ok steak ak akc a 
1722 * 1839 * 
133i : PURPOSE: TO RESET ANY UPPER LEVEL, RESUMING EXECUTION ON LEVEL 3 en : NAME: PRINT SUBROUTINE 
Ne . CALLING SEQUENCE: BAL OFF,R7 Vena . PURPOSE: TO ISSUE "SVC OUT* COMMANDS FOR PRINTING/DIS PLAYING 
1727 * RETURN: NSTI 1844 * METHOD: ALL POINTERS ARE SET, THE 'SVC OUT! ISSUED, THEN EXIT TO 
1728 * 1845 * "EREND!' SINCE PRINTING/DISPLAYING IS DONE ONLY IN THE 
1729 I III IO I IOI IO III ROR RO IR EC IC IORI Ck ak ak akc ak a ak ake a a a 1846 * CASE OF ERRORS. 
1730 * 1847 * 
00356C 6F0D 3596 1731 OFF MVW R7,OFFR+2 SET RETURN LINK 1848 * CALLING SEQUENCE: B PRINT 
003570 0803 1732 MVBI 3,RO0 SAVE LEVEL 3 STUFF 1849 * 
003572 582EF 2882 1733 CPLB RO,LSB * 1850 * RETURN: B  EREND 
003576 4020 2882 3594 1734 MVA OFFR, LSB SET RE-ENTRY ADDRESS FOR LEVEL 3 1851 * 
00357C 402C 2886 00D0 1735 OWT X¥'00D0',LSR FORCE 'SS, IPF & SM' BITS ON 1852 33 IOI I IG II RO IO BG HOR gaia RR i tak takai bok akakoteik det ae 
003582 5826 2882 1736 SELB R0O,LSB SET LEVEL 3 PENDING 1853 * 
003586 OOFF 1737 ABI -1,R0 RESET LEVEL 2 Wet CURRENT, ENTER AT 003664 6808 180C 1854 PRINT MVW STEPNUM,RO SET STEP NUMBER 
003588 5826 2898 1738 SELB RO,DLSB * 'TOFFR' ON LEVEL 3 003668 C120 19D0 1855 MVB DEVADD,R1 * DEVICE ADDRESS, 
00358C OOFF 1739 ABT -1,R0 RESET LEVEL 1 oe CURRENT, ENTER AT 00366C 4224 0000 1856 MVWI 0O,R2 * (RESERVED) 
00358E 5826 2898 1740 SELB R0O,DLSB * YOFFR!' ON LEVEL =p) 003670 4324 2818 1857 MVA TOID R3 * 'INDRS!# POfNTER AND 
003592 610F 1741 LEX X'hre EXIT (ENTER AT "‘OFFR* ON LEVEL 3) 003674 4724 2876 1858 MVA CTLBK,R7 * CONTROL BLOCK POINTER 
1742 * 003678 6000 1859 SVC OUT OUTPUT THE MESSAGE 
003594 6802 0000 1743 OFFR B ae RETURN 1860 * 
1744 * 00367A 6802 3598 1861 B EREND GO END IT 
1706 ROR IOI ICICI III I IC OR IRR OI kak ake ack ak 1862 * 
1747 * 1864 32 Oo OR Roi a OO I IO IOC IR RGIGI II i IOI dark ake gi ke aot sie ake kee skate a 
1748 * NAME: ENDING SUBROUTINES 1865 * 
1749 * 1866 * THIS SECTION COMPRISES INITIAL SETUP AND FINAL WRAPUP CODE. 
1750 * PURPOSE: END EXECUTION AFTER EITHER GOOD OR ERROR RUN 1867 * 
1751 * 1868 * LABEL: T400E WILL INITIALIZE AN INTERRUPT CONTROL BLOCK TO HANDLE 
1752 * CALLING SEQUENCE: BRANCH TO CORRECT ENTRY POINT 1869 * UNEXPECTED INTERRUPTS DURING THE CABLE/WRAP CONNECTOR 
1753 * 1870 * INTERCHANGE. 
1754 * RETURN: DCP 1871 * 
1755 * 1872 * LABEL: T4OOF WILL INSTRUCT THE OPERATOR TO RETURN THE DEVICE(S) 
175.6 32 IC III ICI RO IOI IIR I gai clk katte akc ake ak akc afc ak 1873 * TO THE ORIGINAL CONFIGURATION. 
1757 * 1874 * 
1758 ** "ERROR END* ROUTINE 1875 3 a I IOC I I I IR aii ig II i i ge a akc ak ak ake aca 
1759 * 1876 * 
003598 6301 1760 EREND DIS 1 DISABLE INTERRUPTS OO367E 68E2 0000 1877 T4OOD B (R7) DO-NOTHING RETURN 
00359A 4020 181A 0001 1761 MVWI 1,TOUWORK SET ERROR CONDITION FOR MDI 1878 * 
1762 * 003682 6FOD 36A0 1879 TGOOE MVW R7,RTURNt2 SAVE RETURN LINK 
1763 ** "ERROR STATUS OUTPUT! ROUTINE 003686 4724 36A2 1880 MVA tch R7 GET ADDRESS OF 'CICB* CONTROL BLOCK 
1764 * 00368A 6014 1881 svc cich CONNECT TO DCP 
0035A0 4724 28B8 1765 MVA PARM1,R7 CONVERT THE 'RTNE' NUMBER FROM HEX TO 00368C 5003 1882 J EXIT EXIT 
0035A4 4020 28B8 0002 1766 MVWI 2 PARM1 * EBCDIC AND INSTALL IT IN THE 'RTNE/ 1883 * 
OO35AA 4020 28BA 281A 1767 MVA RENE PARM2 * CKPT' OUTPUT STRING 00368E 6F0D 36A0 1884 T4OOF MVW R7,RTURN+2 SAVE RETURN LINK 
0035B0 4020 28BC 2CFO 1768 MVA TR,PARM3 * 003692 8828 181A 18C8 1885 MVW TUWORK, TURESUL SET TEST RESULT 
0035B6 601A 1769 SVC HTOE * 003698 C720 19D0 1886 MVB DEVADD,R7 GET DEVICE ADDRESS 
1770 * 00369C 6013 1887 SVC RICB RELEASE CONTROL BLOCK 
0035B8 4020 28B8 0001 1771 MVWI 1,PARM1 CONVERT THE 'CKPT*' NUMBER FROM HEX TO 00369E 6802 0000 1888 RTURN B *—% EXIT 
O0035BE 4020 28BA 281D 1772 MVA CKPT+ 1 PARM2 * EBCDIC AND INSTALL IT IN THE '*RTNE/ 1889 * 
0035C4 4020 28BC 2D06 1773 MVA ICP PARM3 * CKPT!' OUTPUT STRING 0036A2 19D0 1890 ICB DC A (DEVADD) DEVICE ADDRESS POINTER 
OO35CA 601A 1774 SVC HTOE * OO36A4 36AA 1891 DC A (ALEX GOOD ADDRESS 
1775 * OO036A6 36AA 1892 DC A (ALEX ERROR ADDRESS 
0035CC 8028 2829 2875 1776 MVB BPHDR,CTLSW NO NEED FOR MESSAGE HEADER THIS TIME 0036A8 0004 1893 DC X"'0004 ATTN CC 
0035D2 4424 2CE0 1777 MVA IRCPM,R4 MOVE MESSAGE STRING TO BUFFER 1894 * 
0035D6 4524 282C 1778 MVA BUFFR,R5 * OO36AA 6100 1895 ALEX LEX 0 SERVICE EXTRANEOUS INTERRUPTS 
OO35DA 4724 OO2A 1779 MVWI IRCND-IRCPM,R7 * 1896 * 
0O035DE 2CA4 1780 MVFN (Rs (R5) * 1897 CR RRR OIRO I OR IOI ROR IO II RR Ri Rag ii tC Ke teri oie ke 
0035EO0O 4724 2876 1781 MVA Ribk “RF OUTPUT THE "PRTNE* AND 'CKPT® INDRS 1898 * : 
0035E4 6000 1085 . SVC OUT * OR : NAME ~- DELAY SUBROUTINE. 
0035E6 5004 1784 J END CLEAN UP AND QUIT 1901 * PURPOSE - TO PROVIDE AT LEAST A 288 MILLISEC DELAY BEFORE 
1785 * 1902 * RETURNING TO THE CALLER. 
1786 ** "GOOD END* ROUTINE 1903 * 
1787 * 1904 * CALLING 
0035E8 6301 1788 GDEND DIS 1 DISABLE INTERRUPTS 1905 * SEQUENCE - BAL DEL,R7 
OO35EA 4020 181A 0000 1789 MVWI O,TUWORK SET STATUS WORD TO 0 1906 * 
0035F0 882C 28C2 2878 1790 END MVW shcp DAPTR* RESTORE DCP XFER VECTOR 1907 * RETURN - TO THE ADDRESS CONTAINED IN R7 
0035F6 C825 28C0 1791 MVWZ SAVER RO RESTORE DCP MCK RTN ADDR AND CLEAR SW 1908 * 
OO35FA 680D OOOA 1792 MVW RO,MCK * 1909 = Ro tolo gO Oi i loi iio io folio tii ia ge tok ica aaa 
OO35FE 6201 1793 EN 1 ENABLE INTERRUPTS OO36AC OCFF 1910 DEL MVBI -1,R4 
003600 6802 0000 1794 GOBCK B ¥*—* RETURN TO DCP/MDI OO36AE BCFF 1911 DEL1 JCT DEf1 RG 
1795 * 0036B0 OCFF 1912 MVBI -1,R4 
1797 3 OR III OR III IG III III IO ROR OI I Ir I tok dot kok toto afc deat 0036B2 BCFF 1913 DEL2 JcT DEL2,R4 
u738 ; ‘ : 0036B4 68E2 0000 ee . B (R7) RETURN 
NAME: MACHINE CHECK SUBROUTINE 
1800 * 000000 1916 END 
1801 * PURPOSE: TO FIELD MACHINE CHECKS, SHOULD THEY OCCUR, TERMINATE 
1802 * THE PROGRAM, PRINT A MESSAGE TO THAT EFFEC, AND RETURN 
1803 + TO THE CONTROLLER 
1302 : CALLING SEQUENCE: HARDWARE BRANCH VIA ‘MACHINE CHECK'* SIA 
ee 4 RETURN: DCP 
1809 $3 III OR IOI OR OI dO i a i dak iaiiaia dak geoiiok 
1810 * 
003604 582F 28B6 1811 MACHK CPPSR MCPSW SAVE PSW 
003608 4724 28B8 1812 MVA PARM1,R7 SET CONTROL BLOCK ADDRESS 
00360C 4020 28B8 0002 1843 MVWI 2 PARA1 CONVERT THE STEP NUMBER FROM HEX TO 
003612 4020 28BA 180C 1814 MVA fEPNUM PARM2 * EBCDIC AND INSTALL IT IN THE 'MACHK 
003618 4020 28BC 2D22 1815 MVA STEP, PARM3 * STATUS MESSAGE 
OO361E 601A ee ‘ SVC TOE * 
003620 4020 28BA 28B6 1818 MVA MCPSW, PARMN2 CONVERT THE SAVED "MACHK PSW* FROM 
003626 4020 28BC 2D2E 1819 MVA PSW PARN3 * HEX TO EBCDIC AND INSTALL IT IN THE 
00362C 601A eee a SVC HTOE * 'MACHK STATUS MESSAGE STRING 
00362E 4020 28BA 2882 1822 MVA LSB, PARH2 CONVERT THE FAILING ADDRESS FROM HEX 
003634 4020 28BC 2D3A 1823 AVA TAR, PARH3 * TO EBCDIC AND INSTALL IT IN THE 
00363A 601A tase a SVC HTOF * 'MACHK STATUS! MESSAGE STRING 
00363C 4020 28B8 0004 1826 MVWI 4,PARM1 CONVERT THE LAST IDCB FROM HEX TO 
003642 4020 28BA 281E 1827 AVA h PARM2 * EBCDIC AND INSTALL IT IN THE 'MACHK 
003648 4020 28BC 2D46 1828 MVA IDCBX ,PARN3 * STATUS MESSAGE STRING 
OO364E 601A 1829 SVC HTO * 
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CROSS~REFERENCE LISTING 
DECLARED NAME ATTRIBUTES AND REFERENCES 
42 @FIXT ABSOLUTE. HEX et a adn Uy age 
399 455 461 464 476 482 488 491 
44 @GOTO ee sh HEX VALUE (00000200) 
4g @N VLD ‘eC pgeeiinn HEX VALUE (00000600) 
41 ®QUES ABSOLUTE. HEX yee ee 
396 431 452 458 4 473 479 485 
47 @QU XX eee HEX VALUE (00000400) 
43 @STOP ie age HEX VALUE (00000102) 
48 OTU XX peer: HEX VALUE (00000500) 
1895 ALEX 4494) abo LOCATION (OOO0036AA) IN CSECT(I4001 
742 ATTID EBBRESS- HEX LOCATION (00002828) IN CSECT(I4001 
743 BPHDR ADDRESS. HEX LOCATION (00002829) IN CSECT(I4001 
747 BUFFR ADDRESS. HEX LOCATION (0000282C) IN CSECT(I4001 
763) 10352 1043 1066 1103 1121 1133 1149 
1179 1195 1209 1224 1236 1261 #1273 £41295 
1336 1351 1363 1380 1395 1414 1429 1451 
1492 1507 1524 1539 1556 1573 1585 1607 
1660 1673 1686 1778 1833 
756 CCX ADDRESS. HEX LOCATION (00002870) IN CSECT(I4001 
1003 1327 1483 
751 cc ae aaa LOCATION (OO000286A) IN CSECT(I4001 
152 CC2 shoe feea LOCATION (0000286B) IN CSECT (14001 
753 cc3 jeue ot HEX LOCATION(Q000286C) IN CSECT(T4001 
755 Cc7 ADDRESS. HEX LOCATION (O000286E) IN CSECT(I4001 
1023 1094 1110 1140 170 1186 1247 1248 
1286 1326 1342 1404 1441 1442 1482 1498 
1563 1597 1598 
637 CICB “sane HEX VALUE (00000014) 
733 CKPT ADDRESS. HEX eM or tae ak IN CSECT (14001 
982 1020 1037 1092 1108 1128 1138 1158 
1184 1204 1214 =%1231 1245 1268 1310 1324 
1358 1370 1387 1402 1421 1440 1466 1480 
1516 1529 1548 1561 1580 1596 1622 1712 
805 CRTDA Se aaa HEX LOCATION (000028C5) IN CSECT(I4001 
763 CTLBK AT hak FY hai LOCATION (60002876) IN CSECT(I4001 
762 CTLSW wae HEX LOCATION (00002875) IN CSECT(I4001 
767 DAPTR Bae t 2 80 X LOCATION (00002878) IN CSECT (I4001 
768 DDB ADDRESS. X LOCATION (OO00287A) IN CSECT(I4001 
1001 1021 1093 
1910 DEL ADDRESS. X LOCATION(OOOO36AC) IN CSECT(I4001 
1126 1156 1202 1229 1266 1300 1302 1304 
1356 1385 1419 1456 1458 1460 1464 1514 
1578 1612 1614 1616 1620 
1911 DEL! Pk clea X LOCATION (OOOO36AE) IN CSECT(I4001 
1913 DEL2 PE elas HEX LOCATION (000036B2) IN CSECT(I4001 
108 DEVADD ADDRESS. HEX LOCATION(000019D0) IN CSECT (I4001 
988 1682 1855 1886 90 
774 DLSB {ABDRESS; HEX LOCATION (00002898) IN CSECT(T4001 
70 DUMMY ABSOLUTE BBP eede Goneuere) 
825 DVCID 1Gge oka LOCATION (000028D7) IN CSECT (14001 
1790 END ‘sen HEX LOCATION (QO0035F0) IN CSECT(I4001 
494 ENTPT Sr aaa HEX LOCATION (000025F2) IN CSECT(I4001 
50 EQ hoe ana HEX VALUE (00000000) 
1760 EREND seq HEX LOCATION (00003598) IN CSECT(I4001 
623 EXIT ES ae HEX VALUE (00000006) 
519 FO00064 oo HEX LOCATION (00002600) IN CSECT(I4001 
523 FO00 146 hao HEX LOCATION (00002612) IN CSECT(I4001 
531 FOO 164 Heelan HEX LOCATION (00002642) IN CSECT (I4001 
535 F00173 npPESSS: HEX LOCATION (00002648) IN CSECT(I4001 
539 F00180 ipo HEX LOCATION (0000265A) IN CSECT(I4001 
543 F00183 feo HEX LOCATION (OOOO0266E) IN CSECT(I4001 
547 F00190 i bale HEX LOCATION (00002692) IN CSECT(I4001 
553 F00218 te aaa HEX LOCATION (000026C8) IN CSECT(I4001 
563 F00260 ion HEX LOCATION (0000273E) IN CSECT (14001 
567 FO00274 Agee HEX LOCATION (00002762) IN CSECT (I4001 
571 F00278 foo HEX LOCATION (0000278C) IN CSECT(I4001 
1788 GDEND Pt ae HEX LOCATION (000035E8) IN CSECT(I4001 
1794 GOBCK 4 eae HEX LOCATION (00003600) IN CSECT(I4001 
643 HTOE ABSOLUTE. HEX pees aon 
1769 1774 1816 1820 1824 9 
939 IAR seon HEX LOCATION (00002D3A) IN CSECT(I4001 
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LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
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LENGTH (1) 


LENGTH (2) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 


LENGTH (1) 
LENGTH (6) 
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LENGTH (1) 
LENGTH (1) 
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770 
1890 
926 
734 


941 
739 
771 


66 
924 
929 
923 

1059 
1650 

40 
740 
773 
193 
778 
779 
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782 
944 
933 
783 
917 
873 
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881 
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870 
893 
911 
914 
396 
399 
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411 
417 
429 


NAME 
IBIT 
ICB 
ICP 
IDCB 


IDCBX 
IDRDA 
INTIN 


INTRNL 
IR 
IRCND 
IRCPM 
ISso1 
ISS02 
T4001 
LEVEL 
LSB 
LSR 
LVLO 
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LVL2 
MACHK 
MCK 
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HCMSG 
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N00002 
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HEX LOCATION (00002875) IN 
1306 1403 1462 1562 
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T4001 --- TTY ATTACHMENT MANUAL MODE MAP P/N=1635224 EC=374888 PAGE 10 T4001 --- TTY ATTACHMENT MANUAL MODE MAP P/N=1635224 EC=374888 PAGE 10A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
431 w00007 ADDRESS. HEX LOCATION (00002596) IN CSECT(I4001 ) LENGTH (2) 1156 RT 20H ADDRESS. HEX LOCATION(OO002F1A) IN CSECT(I4001 ) LENGTH(4) 
434 N00008 ADDRESS. X LOCATION (0000259A) IN CSECT(I4001 ) LENGTH (2) 1168 RT20L ADDRESS. HEX LOCATION (00002F3C) IN CSECT(I4001 ) LENGTH (6) 
440 N00009 ADDRESS. HEX LOCATION (000025A6) IN CSECT(I4001 ) LENGTH(2) 1184 RT20R LODRESS. HEX LOCATION (00002F76) IN CSECT(I400% ) LENGTH(6) 
452 n00010 ADDRESS. HEX LOCATION (000025B8) IN CSECT(I4001 ) LENGTH(2) 1202 RT20W ADDRESS. HEX LOCATION(00002FB0) IN CSECT(I4001 ) LENGTH(4) 
455 N00011 ADDRESS. HEX LOCATION (000025BC) IN CSECT(I4001 ) LENGTH (2) 1108 RT205 agpRESs. HEX LOCATION (00002E84) IN CSECT(I4001 ) LENGTH (6) 
458 N00012 ADDRESS. HEX LOCATION (000025C0) IN CSECT(I4001 ) LENGTH (2) 1245 RT21B BBBRESS.- HEX LOCATION (00003028) IN CSECT(I4001 ) LENGTH (6) 
oo] 
461 N00013 ADDRESS. HEX LOCATION (000025C4) IN CSECT(I4001 ) LENGTH(2) 1214 RT211 )BBDRESS. HEX LOCATION(00002FD2) IN CSECT(I4001 ) LENGTH (6) 
464 N00014 ADDRESS. HEX LOCATION (000025C8) IN CSECT(I4001 ) LENGTH (2) 1229 RT216 {RDBRESS. HEX LOCATION (00003006) IN CSECT(I4001 ) LENGTH(4) 
467 N00015 ADDRESS, HEX LOCATION (000025CC) IN CSECT(I4001 ) LENGTH (2) 1300 RT22D jADBRESS. HEX LOCATION (000030D2) IN CSECT(I4001 ) LENGTH(4) 
470 N00016 ADDRESS. HEX LOCATION (000025D0) IN CSECT(I4001 ) LENGTH(2) 1266 RT220 jRBDEESS. HEX LOCATION (00003068) IN CSECT(I4001 ) LENGTH(4) 
473 N00017 ADDRESS. HEX LOCATION (000025D4) IN CSECT(I4001 ) LENGTH (2) 1278 RT228 {RORRESS. HEX LOCATION (0000308A) IN CSECT(I4001 ) LENGTH(4) 
476 N00018 ADDRESS. HEX LOCATION (000025D8) IN CSECT(I4001 ) LENGTH (2) 1356 RT23C ADDRESS. HEX LOCATION(0000317E) IN CSECT(I4001 ) LENGTH(4) 
479 N00019 ADDRESS. HEX LOCATION(000025DC) IN CSECT(I4001 ) LENGTH (2) 1324 RT231 ADDRESS. HEX LOCATION (0000310A) IN CSECT(I4001 ) LENGTH (6) 
482 N00020 ADDRESS. HEX LOCATION (00002550) IN CSECT (14001 ) LENGTH (2) 1341 RT 236 {ABDRESS. HEX LOCATION (0000314A) IN CSECT(I4001 ) LENGTH (6) 
485 N00021 ADDRESS. HEX LOCATION (000025E4) IN CSECT(I4001 ) LENGTH(2) 1419 RT24E ADDRESS. HEX LOCATION (0000323E) IN CSECT(I4001 ) LENGTH(4) 
488 N00022 ADDRESS. HEX LOCATION (000025E8) IN CSECT(I4001 ) LENGTH (2) 1370 RT240 paoDRESS. HEX LOCATION (000031A0) IN CSECT(I4001 ) LENGTH(6) 
494 N00023 ADDRESS. HEX LOCATION (000025EC) IN CSECT(I4001 ) LENGTH (2) 1385 RT245 ADDRESS. HEX LOCATION (000031D4) IN CSECT(I4001 ) LENGTH(4) 
1731 OFF jROBRESS; HEX LOCATION (0000356C) IN CSECT(I4001 ) LENGTH(4) 1402 RT249 {ADBRESS. HEX LOCATION(000031FE) IN CSECT(I4001 ) LENGTH (6) 
1743 OFFR ADDRESS: HEX LOCATION(00003594) IN CSECT(I4001 ) LENGTH (4) 1434 RT25A EBBRESS.- HEX LOCATION (00003268) IN CSECT(I4001 ) LENGTH(4) 
617 OUT )SBSOLUTE, HEX VALUE (00000000) 1456 RT25E ADDRESS. HEX LOCATION (000032B0) IN CSECT(I4001 ) LENGTH(4) 
104 PARMARA ADDRESS, HEX LOCATION (0000 196E) IN CSECT(I4001 ) LENGTH(1) 1514 RT26C {BBDRESS.- HEX LOCATION (0000335C) IN CSECT(I4001 ) LENGTH (4) 
785 PARM1 )SOBRESS, HEX LOCATION (00002858 oiN CSECT(I4001 ) LENGTH (2) 1480 RT 262 ADDRESS. HEX LOCATION (000032E8) IN CSECT(I4001 ) LENGTH(6) 
786 PARM2 {PRORESS. HEX LOCATION (000028BA) IN CSECT(I4001 ) LENGTH (2) 1497 RT267 {LBDRESS. HEX LOCATION (00003328) IN CSECT(I4001 ) LENGTH(6) 
787 PARM3 jPOQRESS. HEE LOCATION (000028BC) EM CSECT(I4001 ) LENGTH(2) 1578 RT27E ADDRESS. HEX LOCATION (00003424) IN CSECT(I4001 ) LENGTH (4) 
811 PDATA ADDRESS. HEX LOCATION (000028CB) IN CSECT(I4001 ) LENGTH (1) 1529 RT270 ADDRESS. HEX LOCATION (00003386) IN CSECT(I4001 ) LENGTH (6) 
1109 1139 1169 1246 1282 1306 1325 1403 1438 1518 
sie seuae 1962. 5148721502 1308 obo d8 a> foe2 A213 cone 1546 RT275 {BUBRESS- HEX LOCATION (000033BA) IN CSECT(I4001 ) LENGTH (4) 
; SECT (I G 
1831 ( de as y EERSTE) 1561 RT279 ADDRESS. HEX LOCATION(000033E4) IN CSECT(I4001 ) LENGTH (6) 
72 PID ADDRESS. HEX LOCATION(00001800) IN CSECT(I4001 ) LENGTH(1) 1550 
y4 15 76 i 18 79 80 84 82 1590 RT28A A BBEESS- HEX LOCATION (00003446) IN CSECT(I4001 ) LENGTH(4) 
92 93 94 95 96 97 98 99 100 1612 RT28F ADDRESS. HEX LOCATION (0000348E) IN CSECT(I4001 ) LENGTH(4) 
101 102 103 104 105 106 107 108 109 1601 
110 111 112 113 114 ~=—=115 1632 RT290 ADDRESS. HEX LOCATION(000034C6) IN CSECT(I4001 ) LENGTH(4) 
808 PREPR ADDRESS. HEX LOCATION(000028C8) IN CSECT(I4001  ) LENGTH(1) 1624 
1117 1112 11417 11420 1171 1172 1249 1250 1283 0 RO REGISTER. HEX YALUE (00000000) 
1307 1328 1329 1406 1407 1439 1463 1484 1485 983 988 989 990 991 992 993 994 995 
1565 1566 1595 1619 1714 996 997 (998 (999 1000 1001 1022 1062 1063 
1854 PRINT ADDRESS. HEX LOCATION (00003664) IN CSECT(I4001 ) LENGTH (4) 1129 1159 1202 1232 1269 1311 1359 1388 1422 
1035 1046 1071 1106 1124 1136 1152 1166 1182 1467 1517 1549 1581 1623 1732 1733 1736 1737 
1198 1212 1227 1239 1264 1276 1298 1318 1339 1738 1739 1740 1791 1792 1854 
1354 1366 1383 1398 1417 1432 1454 1474 1495 0 R1 REGISTER. HEX VALUE (9000000 1) 
1510 1527 1542 1559 1576 1588 1610 1630 1665 1031 1034 1042 1045 1065 1068 1102 1105 1120 
1678 1691 1123. 1132 1135 1148 1151 1162 1165 1178 1181 
809 PRPDA ADDRESS. HEX LOCATION (000028C9) IN CSECT (14001 ) LENGTH (1) 1194 1197 1208 1211 1223 1226 1235 1238 1260 
991 1263 1272 1275 1294 1297 1314 1317 1335 1338 
937 PSW ADDRESS. HEX LOCATION (00002D2E) IN CSECT(I4001 ) LENGTH(2) 1350 1353 1362 1365 1379 1382 1394 1397 1413 
1819 1416 1428 1431 1450 1453 1470 1473 1491 1494 
814 RDDA ADDRESS. HEX LOCATION(000028CD) IN CSECT(I4001 ) LENGTH(1) 1506 1509 1523 1526 1538 1541 1555 1558 1572 
992 1575 1584 1587 1606 1609 1626 1629 1659 1662 
822 RDID  ABPRESS, HEX LOCATION(000028D4) IN CSECT(I4001 ) LENGTH(1) 166) 1668 1669 1672 1675 1685 1688 1832 1835 
819 RDWDA ADDRESS. HEX LOCATION(000028D1) IN CSECT (14001 ) LENGTH (1) 0 R2 REGISTER. HEX VALGE (00000002) 
993 1032 1034 1043 1045 1066 1068 1103 1105 1121 
813 READ ADDRESS, HEX LOCATION(000028CC) IN CSECT(I4001 ) LENGTH(1) 1123, 1133 1135 1149 1151 1163 1165 1179 1181 
1278 1434 1590 1195 1197 1209 1211 1224 1226 1236 1238 1261 
636 RICB ABSOLUTE. HEX VALUE (00000013) 1263 1273 1275 1295 1297 1315 1317 1336 1338 
1887 1351 1353 1363 1365 1380 1382 1395 1397 1414 
823 RIDDA ADDRESS. HEX LOCATION(000028D5) IN CSECT(I4001 ) LENGTH(1) 1416 1429 1431 1651 1453 1471 1473 1492 1494 
994 1507 1509 1524 1526 1539 1541 1556 1558 1573 
738 RINCC ADDRESS. HEX LOCATION (00002825) IN CSECT(I4001 ) LENGTH(1) 1575 1585 1587 1607 1609 1627 1629 1660 1662 
1061 1652 1656 1673 1675 1686 1688 1833 1835 1856 
736 RIOCC ADDRESS. HEX LOCATION (00002823) IN CSECT(1I4001 \ LENGTH (1) R3 REGISTER. HEX VALUE (00000003) 
1030 1101 1119 1147 1177 #1193 222 1259 1293 1002 1857 
1334 1349 1378 1393 1412 1427 1449 1490 1505 R4 REGISTER. HEX VALUE (000090004) 
1522 1537 1554 1571 1605 1777_ 1780 1910 1911 1912 1913 
827 RST ADDRESS. HEX LOCATION(000028D8) IN CSECT(I4001 ) LENGTH (1) R5 REGISTER. HEX VALUE (90090005) 
1095 1096 1715 1028 1029 1030 1059 1060 1061 1099 1100 1101 
828 RSTDA ADDRESS. HEX LOCATION (000028D9) IN CSECT(I4001 ) LENGTH (1) 1117) 1118 1119 #1145 1146 1147 #1175 1176 1177 
995 1191 1192 1193 220 1221 1222 1257 1258 1259 
732 RTNE ADDRESS. HEX LOCATION(0000281A) IN CSECT(I4001 ) LENGTH (2) 1291 1292 1293 1332 1333 1334 1347 1348 1349 
981 1019 1091 1767 1376 1377 1378 1391 1392 1393 1410 11411 1412 
1888 RTURN ADDRESS. HEX LOCATION(0000369E) IN CSECT(I4001 ) LENGTH (4) 1425 1426 1427 1647 1448 1449 1488 1489 1490 
1879 1884 1503 1504 1505 1520 1521 1522 1535 1536 1537 
1019 RTO1 ADDRESS. HEX LOCATION(00002DB2) IN CSECT(I4001 ) LENGTH (6) 1552 1553 1554 1569 1570 1571 1603 1604 1605 
984 1650 1651 1652 1693 1778 1780 
1091 RTO2 ADDRESS. HEX LOCATION (00002E44) IN CSECT(I4001 ) LENGTH(6) 0 R7 REGISTER. HEX yaete econo?) 
1039 980 1033 1044 1064 10€7 1069 1104 1122 1126 
1711 RTO5 ADDRESS. HEX LOCATION(0000354E) IN CSECT(I4001 ) LENGTH (6) 1134 1150 1156 1164 1180 1196 1202 1210 1225 
1633 1229 1237 1262 1266 1274 1296 1300 1302 1304 
1037 RT105 ADDRESS. HEX LOCATION(00002DF6) IN CSECT(I4001 ) LENGTH (6) 1308 1316 1337 1352 1356 1364 1381 1385 1396 
1026 1415 1419 1430 1452 1456 1458 1460 1464 1472 
1126 RT20A ADDRESS. HEX LOCATION (OOO02EBE) IN CSECT(I4001 ) LENGTH(4) 14993 1508 1514 1525 1540 1546 1557 1574 1578 
1113 1586 1608 1612 1614 1616 1620 1628 1653 1654 
1138 RT20C ADDRESS. HEX LOCATION(O00002EE0) IN CSECT(I4001 ) LENGTH(6) 1655 1661 1663 1674 1676 1687 1689 1731 1765 
1130 1779 17e4 1812 1834 1858 1877 1879 1880 1884 
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ATTRIBUTES AND REFERENCES 
HEX 
17 


a oe a _ i eae 
P/N= 1635224 EC=374888 

CROSS-REFERENCE LISTING COPYRIGHT 
LOCATION (000028CO) IN CSECT(I4001  ) LENGTH(2) 
LOCATION (000028C2) IN CSECT(I4001  ) LENGTH(2) 
LOCATION (00002D22) IN CSECT(I4001  ) LENGTH(2) 
LOCATION (0000180C) IN CSECT(I4001  ) LENGTH(1) 
LOCATION (000034FC) IN CSECT(I4001 ) LENGTH(4) 
LOCATION (0000351E) IN CSECT(I4001 ) LENGTH(6) 
LOCATION (0000353C) IN CSECT(I4001 ) LENGTH(2) 
LOCATION (00003546) IN CSECT(I4001 ) LENGTH(6) 
LOCATION (00002818) IN CSECT(I4001 ) LENGTH(2) 
LOCATION (000018C8) IN CSECT(I4001 ) LENGTH(1) 
LOCATION (000018 1A) IN CSECT(I4001  ) LENGTH(1) 
LOCATION (0000367E) IN CSECT(I4001 ) LENGTH(4) 
LOCATION (00003682) IN CSECT(I4001 ) LENGTH(4) 
LOCATION (0000368E) IN CSECT(I4001 ) LENGTH(4) 
LOCATION (00002D52) IN CSECT(I4001 ) LENGTH(1) 
LOCATION (000028DF) IN CSECT(I4001 ) LENGTH(1) 
Yeengou (O0ggge DG, Ag CSEST(TSGG" 4 shgtENOTHC 
b4 1499 1500 1531 1532 1599 1600 
LOCATION (000028DD) IN CSECT(I4001 ) LENGTH(1) 
HGCMAEE CO4QDRERHL GB" GEEGTCGEGQT yhgbFNOH( 
Bu TATO” W440 4470" 986 1295) 12hy NOTA 
42 1371 1408 1641 1482 1498 1530 
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